diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-12 15:16:50 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-12 15:16:50 (GMT) |
| commit | 4ff3c3cf90b83dde3d417f6aea0e88e8f15009c5 (patch) | |
| tree | bfd56dd8eb0beae4bdf1ce4e2238affd798e3f1b /library/auto.tcl | |
| parent | acd94364f531568551c8f3f8eca58c27f936675f (diff) | |
| download | tcl-4ff3c3cf90b83dde3d417f6aea0e88e8f15009c5.zip tcl-4ff3c3cf90b83dde3d417f6aea0e88e8f15009c5.tar.gz tcl-4ff3c3cf90b83dde3d417f6aea0e88e8f15009c5.tar.bz2 | |
Add lot's of "-encoding utf-8" to our own "source" commands: We are becoming more independant from the system encoding.
Diffstat (limited to 'library/auto.tcl')
| -rw-r--r-- | library/auto.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/auto.tcl b/library/auto.tcl index f293a38..dd76c1a 100644 --- a/library/auto.tcl +++ b/library/auto.tcl @@ -141,7 +141,7 @@ proc tcl_findLibrary {basename version patch initScript enVarName varName} { # source command, but no file exists command if {[interp issafe] || [file exists $file]} { - if {![catch {uplevel #0 [list source $file]} msg opts]} { + if {![catch {uplevel #0 [list source -encoding utf-8 $file]} msg opts]} { return } append errors "$file: $msg\n" @@ -245,7 +245,7 @@ proc auto_mkindex_old {dir args} { if {[regexp {^proc[ ]+([^ ]*)} $line match procName]} { set procName [lindex [auto_qualify $procName "::"] 0] append index "set [list auto_index($procName)]" - append index " \[list source \[file join \$dir [list $file]\]\]\n" + append index " \[list source -encoding utf-8 \[file join \$dir [list $file]\]\]\n" } } close $f |