diff options
author | dgp <dgp@users.sourceforge.net> | 2020-09-28 13:07:29 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2020-09-28 13:07:29 (GMT) |
commit | 0188c9979dd99659c8a1c8507af1d33f648dc422 (patch) | |
tree | af3cf67fbc40173a4660a273d6afd8a4560400ee /library | |
parent | 2394d76c65cb9d2a7266984d14582075d357d5a7 (diff) | |
parent | f6bf85fb67eb15e637ecf7c7de4f661dc0557b43 (diff) | |
download | tcl-0188c9979dd99659c8a1c8507af1d33f648dc422.zip tcl-0188c9979dd99659c8a1c8507af1d33f648dc422.tar.gz tcl-0188c9979dd99659c8a1c8507af1d33f648dc422.tar.bz2 |
merge 8.6
Diffstat (limited to 'library')
-rw-r--r-- | library/auto.tcl | 2 | ||||
-rw-r--r-- | library/init.tcl | 1 |
2 files changed, 3 insertions, 0 deletions
diff --git a/library/auto.tcl b/library/auto.tcl index 825aeeb..64c5bc7 100644 --- a/library/auto.tcl +++ b/library/auto.tcl @@ -240,6 +240,7 @@ proc auto_mkindex_old {dir args} { set f "" set error [catch { set f [open $file] + fconfigure $f -eofchar \032 while {[gets $f line] >= 0} { if {[regexp {^proc[ ]+([^ ]*)} $line match procName]} { set procName [lindex [auto_qualify $procName "::"] 0] @@ -350,6 +351,7 @@ proc auto_mkindex_parser::mkindex {file} { set scriptFile $file set fid [open $file] + fconfigure $fid -eofchar \032 set contents [read $fid] close $fid diff --git a/library/init.tcl b/library/init.tcl index 6f1e7ed..a4b4da1 100644 --- a/library/init.tcl +++ b/library/init.tcl @@ -494,6 +494,7 @@ proc auto_load_index {} { continue } else { set error [catch { + fconfigure $f -eofchar \032 set id [gets $f] if {$id eq "# Tcl autoload index file, version 2.0"} { eval [read $f] |