diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-10-17 20:18:43 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-10-17 20:18:43 (GMT) |
commit | d9174b0f8d27e0972f47612a3200003ecbd9aa90 (patch) | |
tree | 6441fab2a0c15a2720ee25b96a7ad7eedc7bef91 /library/init.tcl | |
parent | e50b4e4c5965bae47fc77840198c415d83302b44 (diff) | |
parent | a76f86e56510b6a36c85f5c22968aed705a26470 (diff) | |
download | tcl-d9174b0f8d27e0972f47612a3200003ecbd9aa90.zip tcl-d9174b0f8d27e0972f47612a3200003ecbd9aa90.tar.gz tcl-d9174b0f8d27e0972f47612a3200003ecbd9aa90.tar.bz2 |
Merge 9.0. More strict -eofchar parsing
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 d2e3624..2962dbd 100644 --- a/library/init.tcl +++ b/library/init.tcl @@ -450,7 +450,7 @@ proc auto_load_index {} { continue } else { set error [catch { - fconfigure $f -encoding utf-8 -eofchar "\032 {}" + fconfigure $f -encoding utf-8 -eofchar "\x1A {}" set id [gets $f] if {$id eq "# Tcl autoload index file, version 2.0"} { eval [read $f] |