diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-09-09 08:33:32 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-09-09 08:33:32 +0000 |
| commit | 7992dfcb246550eb2c61a2a03019abfb6954da41 (patch) | |
| tree | 8723574bcc284a5f0c054015887156fda24c7436 /perl-install | |
| parent | 74efbeed7e7c61c0f9f1bdd9c4d6bc9a2bdfc443 (diff) | |
| download | drakx-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.pm | 3 |
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; } |