diff options
Diffstat (limited to 'Master/tlpkg/TeXLive/TLWinGoo.pm')
-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); } |