summaryrefslogtreecommitdiff
path: root/Master/tlpkg
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-08-08 12:16:14 +0000
committerNorbert Preining <preining@logic.at>2008-08-08 12:16:14 +0000
commit87c0a4d0b0163bc01e38d8ff279c1956fb26bb8d (patch)
tree14f627fee37f9aed3973385c6c9f8a14144369ab /Master/tlpkg
parent464b66266815a72959e21cd471b161d1c80a0dd4 (diff)
TLWinGoo: support zh-cn and zh-tw, and map everything else starting with zh-
to zh-cn. git-svn-id: svn://tug.org/texlive/trunk@10173 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg')
-rw-r--r--Master/tlpkg/TeXLive/TLWinGoo.pm9
1 files changed, 8 insertions, 1 deletions
diff --git a/Master/tlpkg/TeXLive/TLWinGoo.pm b/Master/tlpkg/TeXLive/TLWinGoo.pm
index 2f319de1645..93ca9ea3bb2 100644
--- a/Master/tlpkg/TeXLive/TLWinGoo.pm
+++ b/Master/tlpkg/TeXLive/TLWinGoo.pm
@@ -241,7 +241,14 @@ sub reg_country {
return 0 unless $lm;
debug("found lang codes value = $value, lm = $lm...\n");
if ($lm) {
- return(substr $lm, 0, 2);
+ if ($lm =~ m/^zh-(cn|tw)$/) {
+ return($lm);
+ } elsif ($lm =~ m/^zh-/) {
+ # anything else is mapped to simplified chinese for now
+ return("zh-cn");
+ } else {
+ return(substr $lm, 0, 2);
+ }
}
}