diff options
author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-08-04 02:14:32 +0000 |
---|---|---|
committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-08-04 02:14:32 +0000 |
commit | dd076bfb9e6a6d0cafdc1f8b946f15c7ec035ce4 (patch) | |
tree | 35b040b4f2a2570cc18ea2068194826f2e4625e5 /perl-install/lang.pm | |
parent | 3d9c2f7556deebd4d6789e411a7d34f2a198f48b (diff) | |
download | drakx-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/lang.pm')
-rw-r--r-- | perl-install/lang.pm | 6 |
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; } |