diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-12 15:24:08 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-12 15:24:08 (GMT) |
| commit | 37907b7e83bac9c787125b72693d4085c8cdcd24 (patch) | |
| tree | df02e21b59b990021a36111383481c05f3d249c5 /library/safe.tcl | |
| parent | b10eea39c1023da6b2f19d3d5bafa13482fe5300 (diff) | |
| parent | 4ff3c3cf90b83dde3d417f6aea0e88e8f15009c5 (diff) | |
| download | tcl-37907b7e83bac9c787125b72693d4085c8cdcd24.zip tcl-37907b7e83bac9c787125b72693d4085c8cdcd24.tar.gz tcl-37907b7e83bac9c787125b72693d4085c8cdcd24.tar.bz2 | |
Merge 8.6. Don't change ActiveCodePage on Windows (yet), that's for 9.0
Diffstat (limited to 'library/safe.tcl')
| -rw-r--r-- | library/safe.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/safe.tcl b/library/safe.tcl index 7b85371..d43eef1 100644 --- a/library/safe.tcl +++ b/library/safe.tcl @@ -625,14 +625,14 @@ proc ::safe::InterpInit { # other procedures defined: if {[catch {::interp eval $child { - source [file join $tcl_library init.tcl] + source -encoding utf-8 [file join $tcl_library init.tcl] }} msg opt]} { Log $child "can't source init.tcl ($msg)" return -options $opt "can't source init.tcl into child $child ($msg)" } if {[catch {::interp eval $child { - source [file join $tcl_library tm.tcl] + source -encoding utf-8 [file join $tcl_library tm.tcl] }} msg opt]} { Log $child "can't source tm.tcl ($msg)" return -options $opt "can't source tm.tcl into child $child ($msg)" |