From 87c0a4d0b0163bc01e38d8ff279c1956fb26bb8d Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Fri, 8 Aug 2008 12:16:14 +0000 Subject: 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 --- Master/tlpkg/TeXLive/TLWinGoo.pm | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) (limited to 'Master/tlpkg/TeXLive') 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); + } } } -- cgit v1.2.3