merge core-8-branch

4 files changed, 5 insertions, 5 deletions

diff --git a/tools/genStubs.tcl b/tools/genStubs.tcl
index bc0d700..3f4632d 100644
--- a/tools/genStubs.tcl
+++ b/tools/genStubs.tcl
@@ -258,7 +258,7 @@ proc genStubs::rewriteFile {file text} {
     }
     set in [open ${file} r]
     set out [open ${file}.new w]
-    fconfigure $out -translation lf
+    fconfigure $out -translation lf -encoding utf-8
 
     while {![eof $in]} {
 	set line [gets $in]
diff --git a/tools/makeHeader.tcl b/tools/makeHeader.tcl
index c72219f..1d961c9 100644
--- a/tools/makeHeader.tcl
+++ b/tools/makeHeader.tcl
@@ -8,7 +8,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 
-package require Tcl 8.6
+package require Tcl 8.6-
 
 namespace eval makeHeader {
 
diff --git a/tools/tclZIC.tcl b/tools/tclZIC.tcl
index 52b86ea..901814f 100755
--- a/tools/tclZIC.tcl
+++ b/tools/tclZIC.tcl
@@ -1263,7 +1263,7 @@ proc writeZones {outDir} {
 	# Write the data to the information file
 
 	set f [open $fileName w]
-	fconfigure $f -translation lf
+	fconfigure $f -translation lf -encoding utf-8
 	puts $f "\# created by $::argv0 - do not edit"
 	puts $f ""
 	puts $f [list set TZData(:$zoneName) $data]
@@ -1316,7 +1316,7 @@ proc writeLinks {outDir} {
 	# Write the file
 
 	set f [open $fileName w]
-	fconfigure $f -translation lf
+	fconfigure $f -translation lf -encoding utf-8
 	puts $f "\# created by $::argv0 - do not edit"
 	puts $f $ifCmd
 	puts $f $setCmd
diff --git a/tools/uniParse.tcl b/tools/uniParse.tcl
index 90d249a..aec5864 100644
--- a/tools/uniParse.tcl
+++ b/tools/uniParse.tcl
@@ -177,7 +177,7 @@ proc uni::main {} {
     puts "shift = $shift, space = $size"
 
     set f [open [file join [lindex $argv 1] tclUniData.c] w]
-    fconfigure $f -translation lf
+    fconfigure $f -translation lf -encoding utf-8
     puts $f "/*
  * tclUniData.c --
  *