diff options
author | dgp <dgp@users.sourceforge.net> | 2005-10-08 13:44:37 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2005-10-08 13:44:37 (GMT) |
commit | ba7edb67f66f3ae93d7c0ba267d77f5fbcf285f4 (patch) | |
tree | 11e807013d92abd0901f25d1b5377d6b4276d8a8 /tools/loadICU.tcl | |
parent | 9257d59dfb725123d0783a0584e0af27eb45c998 (diff) | |
download | tcl-ba7edb67f66f3ae93d7c0ba267d77f5fbcf285f4.zip tcl-ba7edb67f66f3ae93d7c0ba267d77f5fbcf285f4.tar.gz tcl-ba7edb67f66f3ae93d7c0ba267d77f5fbcf285f4.tar.bz2 |
merge updates from HEAD
kennykb_numerics_branch
Diffstat (limited to 'tools/loadICU.tcl')
-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 a41a8dc..0ca33b6 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.1 2004/08/18 19:59:09 kennykb Exp $ +# RCS: @(#) $Id: loadICU.tcl,v 1.1.4.1 2005/10/08 13:45:04 dgp Exp $ # #---------------------------------------------------------------------- @@ -617,6 +617,6 @@ foreach { icudir msgdir } $argv break foreach fileName [glob -directory $icudir *.txt] { set n [file rootname [file tail $fileName]] if { [regexp {^[a-z]{2,3}(_[A-Z]{2,3}(_.*)?)?$} $n] } { - handleLocaleFile $n $fileName [file join $msgdir ${n}.msg] + handleLocaleFile $n $fileName [file join $msgdir [string tolower $n].msg] } } |