diff options
| author | Kevin B Kenny <kennykb@acm.org> | 2005-10-03 14:38:07 (GMT) |
|---|---|---|
| committer | Kevin B Kenny <kennykb@acm.org> | 2005-10-03 14:38:07 (GMT) |
| commit | cc8a018f3a8e1d99de2b471586c26296cdb27501 (patch) | |
| tree | 4e36b6fba7ef47d8ca0915c8afaa2cd45ba7839b /tools/loadICU.tcl | |
| parent | 54e8767a6287864102d7e2b6144aefb9a51525dd (diff) | |
| download | tcl-cc8a018f3a8e1d99de2b471586c26296cdb27501.zip tcl-cc8a018f3a8e1d99de2b471586c26296cdb27501.tar.gz tcl-cc8a018f3a8e1d99de2b471586c26296cdb27501.tar.bz2 | |
Rebuild tzdata from Olson's tzdata2005n.tar.gz
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..ab72f3c 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.2 2005/10/03 14:38:08 kennykb 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] } } |