diff options
author | Norbert Preining <preining@logic.at> | 2008-08-08 13:50:42 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-08-08 13:50:42 +0000 |
commit | 7d4f2c027e87fe84e8bb76bd344b33e682507bec (patch) | |
tree | ae2e27d87fb9a91c8251d6ae4c247456c05ded30 /Master/tlpkg/TeXLive | |
parent | 4d3dac5054e4e379157eb2439301e84222c84c21 (diff) |
installer lang supprt for zh variants: zh,zh-cn,zh-sg -> zh-cn,
zh-tw,zh-hk->zh-tw
Support on win32 and unix,
remove unused perltk-zh since we now need only perltk-zh-cn and perltk-zh-tw
git-svn-id: svn://tug.org/texlive/trunk@10176 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive')
-rw-r--r-- | Master/tlpkg/TeXLive/TLWinGoo.pm | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/Master/tlpkg/TeXLive/TLWinGoo.pm b/Master/tlpkg/TeXLive/TLWinGoo.pm index 93ca9ea3bb2..9900e6d4f4d 100644 --- a/Master/tlpkg/TeXLive/TLWinGoo.pm +++ b/Master/tlpkg/TeXLive/TLWinGoo.pm @@ -241,11 +241,12 @@ sub reg_country { return 0 unless $lm; debug("found lang codes value = $value, lm = $lm...\n"); if ($lm) { - if ($lm =~ m/^zh-(cn|tw)$/) { - return($lm); - } elsif ($lm =~ m/^zh-/) { - # anything else is mapped to simplified chinese for now - return("zh-cn"); + if ($lm =~ m/^zh-(tw|hk)$/i) { + return ("zh-tw"); + } elsif ($lm =~ m/^zh/) { + # for anything else starting with zh return, that is zh, zh-cn, zh-sg + # and maybe something else + return ("zh-cn"); } else { return(substr $lm, 0, 2); } |