diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-02-06 14:49:29 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-02-06 14:49:29 (GMT) |
commit | 718545fc5910b2e24e810043be5f94a05dd831e0 (patch) | |
tree | eb1b319efa47848972592cdf501e0c5cb1cbbed2 /library/init.tcl | |
parent | e3585eb1e74004665d0679e9c01e7ae480e87788 (diff) | |
download | tcl-718545fc5910b2e24e810043be5f94a05dd831e0.zip tcl-718545fc5910b2e24e810043be5f94a05dd831e0.tar.gz tcl-718545fc5910b2e24e810043be5f94a05dd831e0.tar.bz2 |
\032 -> \x1A, since hex reads better than octal
Diffstat (limited to 'library/init.tcl')
-rw-r--r-- | library/init.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/init.tcl b/library/init.tcl index d2d1fa9..3200955 100644 --- a/library/init.tcl +++ b/library/init.tcl @@ -494,7 +494,7 @@ proc auto_load_index {} { continue } else { set error [catch { - fconfigure $f -eofchar "\032 {}" + fconfigure $f -eofchar "\x1A {}" set id [gets $f] if {$id eq "# Tcl autoload index file, version 2.0"} { eval [read $f] |