From dd076bfb9e6a6d0cafdc1f8b946f15c7ec035ce4 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Wed, 4 Aug 2004 02:14:32 +0000
Subject: (read) fix IM reading

---
 perl-install/lang.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'perl-install/lang.pm')

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;
 }
-- 
cgit v1.2.1