diff options
author | Norbert Preining <preining@logic.at> | 2008-08-08 12:47:27 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-08-08 12:47:27 +0000 |
commit | 82dbe385b48525b2fc2763750c146ca25ac0c7f9 (patch) | |
tree | 307da98f7d129d6776bdb346b3c7364a3c41eb1a /Master/tlpkg | |
parent | 87c0a4d0b0163bc01e38d8ff279c1956fb26bb8d (diff) |
GUI installer: support zh-tw and zh-cn also on unix
git-svn-id: svn://tug.org/texlive/trunk@10174 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg')
-rw-r--r-- | Master/tlpkg/installer/install-menu-perltk.pl | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/Master/tlpkg/installer/install-menu-perltk.pl b/Master/tlpkg/installer/install-menu-perltk.pl index 1e19700d6c9..a740497a885 100644 --- a/Master/tlpkg/installer/install-menu-perltk.pl +++ b/Master/tlpkg/installer/install-menu-perltk.pl @@ -56,6 +56,17 @@ if (defined($::opt_lang)) { my ($lang,$area,$codeset); if ($loc =~ m/^([^_.]*)(_([^.]*))?(\.([^@]*))?(@.*)?$/) { $lang = defined($1)?$1:""; + $area = defined($3)?$3:""; + if ($lang eq "zh") { + if ($area eq "CN") { + $lang = "zh-cn"; + } elsif ($area eq "TW") { + $lang = "zh-tw"; + } else { + # fallback to zh-cn! for HK and SG + $lang = "zh-cn"; + } + } } $::lang = $lang if ($lang); } |