summaryrefslogtreecommitdiffstats
path: root/tools/loadICU.tcl
diff options
context:
space:
mode:
authornijtmans <nijtmans>2010-06-16 10:31:14 (GMT)
committernijtmans <nijtmans>2010-06-16 10:31:14 (GMT)
commiteb98df8fef94944b7b479387e27232beab5e869d (patch)
treeb4bae3ebcd5c71a46293c3e08f000b220bda93dc /tools/loadICU.tcl
parentc03bc4fe6cde4ddd576824fde353f5606bcd707f (diff)
downloadtcl-eb98df8fef94944b7b479387e27232beab5e869d.zip
tcl-eb98df8fef94944b7b479387e27232beab5e869d.tar.gz
tcl-eb98df8fef94944b7b479387e27232beab5e869d.tar.bz2
[Bug 3016135] traceback using clock format with locale of he_IL
Diffstat (limited to 'tools/loadICU.tcl')
-rwxr-xr-xtools/loadICU.tcl4
1 files changed, 2 insertions, 2 deletions
diff --git a/tools/loadICU.tcl b/tools/loadICU.tcl
index da0e134..8bf0d72 100755
--- a/tools/loadICU.tcl
+++ b/tools/loadICU.tcl
@@ -26,7 +26,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: loadICU.tcl,v 1.3 2007/04/20 02:23:35 kennykb Exp $
+# RCS: @(#) $Id: loadICU.tcl,v 1.4 2010/06/16 10:31:15 nijtmans Exp $
#
#----------------------------------------------------------------------
@@ -591,7 +591,7 @@ proc backslashify { string } {
set retval {}
foreach char [split $string {}] {
scan $char %c ccode
- if { $ccode >= 0x0020 && $ccode < 0x007f
+ if { $ccode >= 0x0020 && $ccode < 0x007f && $char ne "\""
&& $char ne "\{" && $char ne "\}" && $char ne "\["
&& $char ne "\]" && $char ne "\\" && $char ne "\$" } {
append retval $char