From 7992dfcb246550eb2c61a2a03019abfb6954da41 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 9 Sep 2004 08:33:32 +0000
Subject: (read) fix chinput identification

---
 perl-install/lang.pm | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'perl-install')

diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index e8074a542..8f3237d1c 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -512,6 +512,8 @@ my %gtkqt_im =
    chinput => {
                GTK_IM_MODULE => 'xim',
                XIM => 'chinput',
+               # bogus entry overwriten by %im_xim_program, just for read()
+               XIM_PROGRAM => 'chinput',
                XMODIFIERS => '@im=Chinput',
                },
    fctix => {
@@ -954,6 +956,7 @@ sub read {
     
     if ($h{XIM_PROGRAM}) {
 	$locale->{IM} = find { $gtkqt_im{$_}{XIM_PROGRAM} eq $h{XIM_PROGRAM} } keys %gtkqt_im;
+	$locale->{IM} ||= find { member($h{XIM_PROGRAM}, values %{$im_xim_program{$_}}) } keys %im_xim_program;
     }
     $locale;
 }
-- 
cgit v1.2.1