diff options
| author | Pablo Saratxaga <pablo@mandriva.com> | 1999-12-01 17:50:55 +0000 |
|---|---|---|
| committer | Pablo Saratxaga <pablo@mandriva.com> | 1999-12-01 17:50:55 +0000 |
| commit | 8a0772b04de02cde628f00edf37b756eb3c4e200 (patch) | |
| tree | 4dafeeac63337497c55309db4bba96149e31a46a /perl-install | |
| parent | 27968886bf2586682cb1a6f45eb8b485dc6a4257 (diff) | |
| download | drakx-backup-do-not-use-8a0772b04de02cde628f00edf37b756eb3c4e200.tar drakx-backup-do-not-use-8a0772b04de02cde628f00edf37b756eb3c4e200.tar.gz drakx-backup-do-not-use-8a0772b04de02cde628f00edf37b756eb3c4e200.tar.bz2 drakx-backup-do-not-use-8a0772b04de02cde628f00edf37b756eb3c4e200.tar.xz drakx-backup-do-not-use-8a0772b04de02cde628f00edf37b756eb3c4e200.zip | |
set the XIM values for zh_CN
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/lang.pm | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/perl-install/lang.pm b/perl-install/lang.pm index cb5d4346f..1b527608f 100644 --- a/perl-install/lang.pm +++ b/perl-install/lang.pm @@ -75,8 +75,8 @@ my %xim = ( }, 'zh_CN' => { ENC => 'gb', - XIM => 'xcin-zh_CN.GB2312', - XMODIFIERS => '"@im=xcin-zh_CN.GB2312"', + XIM => 'xcin-zh_CN', + XMODIFIERS => '"@im=xcin-zh_CN"', }, 'ko' => { XIM => 'ami', @@ -108,8 +108,8 @@ my %charsets = ( #- (and gtk support isn't done yet) "iso-8859-8" => [ "iso08.f16", "iso08", std_("iso8859-8") ], "iso-8859-9" => [ "lat5-16", "iso09", std("iso8859-9") ], - "iso-8859-13" => [ "??????", undef, std_("iso8859-13") ], - "iso-8859-14" => [ "??????", undef, std_("iso8859-14") ], + "iso-8859-13" => [ "undef", undef, std_("iso8859-13") ], + "iso-8859-14" => [ "undef", undef, std_("iso8859-14") ], "iso-8859-15" => [ "lat0-sun16", "iso15", std("iso8859-15") ], #- japanese needs special console driver for text mode [kon2] "jisx0208" => [ undef, undef, @@ -183,8 +183,10 @@ sub write { sub load_po($) { my ($lang) = @_; +#- my @lang = split ':', $lang; my ($s, $from, $to, $state, $fuzzy); + $s .= "package po::I18N;\n"; $s .= "\%$lang = ("; |