diff options
| -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 = ("; |