diff options
| author | nijtmans <nijtmans> | 2010-06-16 10:31:14 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2010-06-16 10:31:14 (GMT) |
| commit | eb98df8fef94944b7b479387e27232beab5e869d (patch) | |
| tree | b4bae3ebcd5c71a46293c3e08f000b220bda93dc /tools | |
| parent | c03bc4fe6cde4ddd576824fde353f5606bcd707f (diff) | |
| download | tcl-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')
| -rwxr-xr-x | tools/loadICU.tcl | 4 |
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 |