summaryrefslogtreecommitdiffstats
path: root/perl-install/lang.pm
diff options
context:
space:
mode:
authorPablo Saratxaga <pablo@mandriva.com>2000-06-26 17:29:07 +0000
committerPablo Saratxaga <pablo@mandriva.com>2000-06-26 17:29:07 +0000
commitf02e76ad7ed01ce6f02ed576c13dd74fc69cdef6 (patch)
treefa858fa738f3360fe59725f67d003e15d0930c74 /perl-install/lang.pm
parent0e32d38de7e6ea5b4913d67ad77a01a28b42a247 (diff)
downloaddrakx-backup-do-not-use-f02e76ad7ed01ce6f02ed576c13dd74fc69cdef6.tar
drakx-backup-do-not-use-f02e76ad7ed01ce6f02ed576c13dd74fc69cdef6.tar.gz
drakx-backup-do-not-use-f02e76ad7ed01ce6f02ed576c13dd74fc69cdef6.tar.bz2
drakx-backup-do-not-use-f02e76ad7ed01ce6f02ed576c13dd74fc69cdef6.tar.xz
drakx-backup-do-not-use-f02e76ad7ed01ce6f02ed576c13dd74fc69cdef6.zip
changed locale name for simplified Chinese
Diffstat (limited to 'perl-install/lang.pm')
-rw-r--r--perl-install/lang.pm13
1 files changed, 6 insertions, 7 deletions
diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index 1a41ad467..b679e0fb9 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -17,11 +17,11 @@ use log;
#- [2] = value for $LANG, [3] = value for LANGUAGE (a list of possible
#- languages, carefully choosen)
my %languages = (
-'en_US' => [ 'English (US)', 'iso-8859-1', 'en', 'en_US:en' ],
+'en_US' => [ 'English (US)', 'iso-8859-1', 'en', 'en_US:en' ],
'en_GB' => [ 'English (UK)', 'iso-8859-1', 'en', 'en_GB:en' ],
'af' => [ 'Afrikaans', 'iso-8859-1', 'af', 'af:en_ZA' ],
'ar' => [ 'Arabic', 'iso-8859-6', 'ar', 'ar' ],
-'be_BY.CP1251' => [ 'Belarussian', 'cp1251', 'be', 'be:be_BY.CP1251' ],
+'be_BY.CP1251' => [ 'Belarussian', 'cp1251', 'be', 'be:be_BY.CP1251:ru_RU.CP1251' ],
#- provide aliases for some not very standard names used in po files...
'bg_BG' => [ 'Bulgarian', 'cp1251', 'bg', 'bg:bg.CP1251:bg_BG.CP1251' ],
'br' => [ 'Brezhoneg', 'iso-8859-1', 'br', 'br:fr_FR:fr' ],
@@ -95,7 +95,7 @@ my %languages = (
'wa' => [ 'Walon', 'iso-8859-1', 'wa', 'wa:fr_BE:fr' ],
#-'yi' => [ 'Yiddish', 'cp1255', 'yi', 'yi' ],
'zh_TW.Big5' => [ 'Chinese (Big5)', 'Big5', 'zh_TW.Big5', 'zh_TW.Big5:zh_TW.big5:zh' ],
-'zh_CN' => [ 'Chinese (GuoBiao)', 'gb2312', 'zh_CN', 'zh_CN:zh_CN.GB2312:zh_CN.gb2312:zh' ],
+'zh_CN' => [ 'Chinese (GuoBiao)', 'gb2312', 'zh_CN.GB2312', 'zh_CN.GB2312:zh_CN.gb2312:zh_CN:zh' ],
);
my %xim = (
@@ -104,10 +104,10 @@ my %xim = (
XIM => 'xcin',
XMODIFIERS => '"@im=xcin"',
},
- 'zh_CN' => {
+ 'zh_CN.GB2312' => {
ENC => 'gb',
- XIM => 'xcin-zh_CN',
- XMODIFIERS => '"@im=xcin-zh_CN"',
+ XIM => 'xcin-zh_CN.GB2312',
+ XMODIFIERS => '"@im=xcin-zh_CN.GB2312"',
},
'ko' => {
ENC => 'kr',
@@ -271,7 +271,6 @@ sub write {
my $c = $charsets{$l->[1] || ''};
if ($c) {
my $p = "$prefix/usr/lib/kbd";
- add2hash $h, { CHARSET => $c };
if ($c->[0]) {
add2hash $h, { SYSFONT => $c->[0] };
eval {