diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-10-26 09:36:30 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-10-26 09:36:30 (GMT) |
| commit | 837f6c4dc096082d7e645f702f494f8a70a51a32 (patch) | |
| tree | efb5f6ab253b6d4b8d51889b011d87528742b251 /library/install.tcl | |
| parent | d33fc57550e1921bfadb8fe4b90d7e55bf23e6f5 (diff) | |
| parent | 4ee4ed8efe6d1d806989ea477d25fa98a70a51a3 (diff) | |
| download | tcl-837f6c4dc096082d7e645f702f494f8a70a51a32.zip tcl-837f6c4dc096082d7e645f702f494f8a70a51a32.tar.gz tcl-837f6c4dc096082d7e645f702f494f8a70a51a32.tar.bz2 | |
TIP #646: Change -eofchar handling (Tcl 8.7 part)
Diffstat (limited to 'library/install.tcl')
| -rw-r--r-- | library/install.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/library/install.tcl b/library/install.tcl index ce8e80b..50e40df 100644 --- a/library/install.tcl +++ b/library/install.tcl @@ -35,7 +35,7 @@ proc ::practcl::_pkgindex_directory {path} { # Read the file, and override assumptions as needed ### set fin [open $file r] - fconfigure $fin -encoding utf-8 -eofchar "\032 {}" + fconfigure $fin -encoding utf-8 -eofchar "\x1A {}" set dat [read $fin] close $fin # Look for a teapot style Package statement @@ -59,7 +59,7 @@ proc ::practcl::_pkgindex_directory {path} { foreach file [glob -nocomplain $path/*.tcl] { if { [file tail $file] == "version_info.tcl" } continue set fin [open $file r] - fconfigure $fin -encoding utf-8 -eofchar "\032 {}" + fconfigure $fin -encoding utf-8 -eofchar "\x1A {}" set dat [read $fin] close $fin if {![regexp "package provide" $dat]} continue @@ -79,7 +79,7 @@ proc ::practcl::_pkgindex_directory {path} { return $buffer } set fin [open $pkgidxfile r] - fconfigure $fin -encoding utf-8 -eofchar "\032 {}" + fconfigure $fin -encoding utf-8 -eofchar "\x1A {}" set dat [read $fin] close $fin set trace 0 |