summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/lang.pm10
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 = (";