summaryrefslogtreecommitdiffstats
path: root/perl-install/lang.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-08-04 02:15:15 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-08-04 02:15:15 +0000
commit6be7d3cdfb70e86cf22f837e40b85015bdbc3654 (patch)
treef7de14da6a15dc04027dcf74e4cd440ea4d7878a /perl-install/lang.pm
parent87bcf74b039effce95dc2bf8152a48d49ca6bb1e (diff)
downloaddrakx-6be7d3cdfb70e86cf22f837e40b85015bdbc3654.tar
drakx-6be7d3cdfb70e86cf22f837e40b85015bdbc3654.tar.gz
drakx-6be7d3cdfb70e86cf22f837e40b85015bdbc3654.tar.bz2
drakx-6be7d3cdfb70e86cf22f837e40b85015bdbc3654.tar.xz
drakx-6be7d3cdfb70e86cf22f837e40b85015bdbc3654.zip
(write) if one override default IM, remove any setting from default IM (hint:
some IM configurations do not have all fields set...)
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/) {