diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-01-27 09:35:07 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-01-27 09:35:07 (GMT) |
commit | a3add118f5795550d6eb25ff49b89024a2ba1ff2 (patch) | |
tree | 470a8bff98eea526a2adbb13013fd742e82acfec /tools | |
parent | 8694436e300ed2d7c40b0181743e03b9eca8caa9 (diff) | |
parent | 00e74d3371710d80dfc049a73bdb1b8d7eeffcf7 (diff) | |
download | tcl-a3add118f5795550d6eb25ff49b89024a2ba1ff2.zip tcl-a3add118f5795550d6eb25ff49b89024a2ba1ff2.tar.gz tcl-a3add118f5795550d6eb25ff49b89024a2ba1ff2.tar.bz2 |
Merge 8.6
Diffstat (limited to 'tools')
-rw-r--r-- | tools/genStubs.tcl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tools/genStubs.tcl b/tools/genStubs.tcl index 3f4632d..5b7278c 100644 --- a/tools/genStubs.tcl +++ b/tools/genStubs.tcl @@ -257,6 +257,7 @@ proc genStubs::rewriteFile {file text} { return } set in [open ${file} r] + fconfigure $in -eofchar "\032 {}" -encoding utf-8 set out [open ${file}.new w] fconfigure $out -translation lf -encoding utf-8 @@ -1191,7 +1192,7 @@ proc genStubs::init {} { set outDir [lindex $argv 0] foreach file [lrange $argv 1 end] { - source $file + source -encoding utf-8 $file } foreach name [lsort [array names interfaces]] { |