summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-08-04 02:14:32 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-08-04 02:14:32 +0000
commitdd076bfb9e6a6d0cafdc1f8b946f15c7ec035ce4 (patch)
tree35b040b4f2a2570cc18ea2068194826f2e4625e5 /perl-install
parent3d9c2f7556deebd4d6789e411a7d34f2a198f48b (diff)
downloaddrakx-backup-do-not-use-dd076bfb9e6a6d0cafdc1f8b946f15c7ec035ce4.tar
drakx-backup-do-not-use-dd076bfb9e6a6d0cafdc1f8b946f15c7ec035ce4.tar.gz
drakx-backup-do-not-use-dd076bfb9e6a6d0cafdc1f8b946f15c7ec035ce4.tar.bz2
drakx-backup-do-not-use-dd076bfb9e6a6d0cafdc1f8b946f15c7ec035ce4.tar.xz
drakx-backup-do-not-use-dd076bfb9e6a6d0cafdc1f8b946f15c7ec035ce4.zip
(read) fix IM reading
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/lang.pm6
1 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index c1839c604..91d3bf4b1 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -504,7 +504,9 @@ my %gtkqt_im =
XMODIFIERS => '@im=fcitx',
},
'im-ja' => {
- GTK_IM_MODULE => 'im-ja', # 'im-ja-xim-server',
+ GTK_IM_MODULE => 'im-ja',
+ XIM => 'im-ja-xim-server',
+ XIM_PROGRAM => 'im-ja-xim-server',
XMODIFIERS => '@im=im-ja-xim-server',
},
@@ -956,7 +958,7 @@ sub read {
my $locale = system_locales_to_ourlocale($h{LC_MESSAGES} || 'en_US', $h{LC_MONETARY} || 'en_US');
if ($h{XIM_PROGRAM}) {
- $locale->{IM} = find { $gtkqt_im{$_}{XIM_PROGRAM} eq $locale->{XIM_PROGRAM} } keys %gtkqt_im;
+ $locale->{IM} = find { $gtkqt_im{$_}{XIM_PROGRAM} eq $h{XIM_PROGRAM} } keys %gtkqt_im;
}
$locale;
}