summaryrefslogtreecommitdiffstats
path: root/perl-install/lang.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/lang.pm')
-rw-r--r--perl-install/lang.pm8
1 files changed, 6 insertions, 2 deletions
diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index 91d3bf4b1..b916d5ccc 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -1023,8 +1023,12 @@ sub write {
}
}
- add2hash($h, $gtkqt_im{$locale->{IM}});
- add2hash($h, $xim{$h->{LANG}});
+ my %conf = %{$xim{$h->{LANG}}} if $xim{$h->{LANG}};
+ if ($locale->{IM}) {
+ delete @{$_}{qw(GTK_IM_MODULE XIM XIM_PROGRAM XMODIFIERS)} foreach $h, \%conf;
+ add2hash($h, $gtkqt_im{$locale->{IM}});
+ }
+ add2hash($h, \%conf);
#- deactivate translations on console for RTL languages
if ($h->{LANG} =~ /ar|fa|he|ur|yi/) {