diff options
| -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; } |