summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-09-09 08:33:32 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-09-09 08:33:32 +0000
commit7992dfcb246550eb2c61a2a03019abfb6954da41 (patch)
tree8723574bcc284a5f0c054015887156fda24c7436 /perl-install
parent74efbeed7e7c61c0f9f1bdd9c4d6bc9a2bdfc443 (diff)
downloaddrakx-7992dfcb246550eb2c61a2a03019abfb6954da41.tar
drakx-7992dfcb246550eb2c61a2a03019abfb6954da41.tar.gz
drakx-7992dfcb246550eb2c61a2a03019abfb6954da41.tar.bz2
drakx-7992dfcb246550eb2c61a2a03019abfb6954da41.tar.xz
drakx-7992dfcb246550eb2c61a2a03019abfb6954da41.zip
(read) fix chinput identification
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/lang.pm3
1 files changed, 3 insertions, 0 deletions
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;
}