diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-08-06 07:24:14 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-08-06 07:24:14 +0000 |
| commit | 15d48009198ea46f218aa514252374a714bf5991 (patch) | |
| tree | 462701f60c92739cef0a72197cc7a70ac9bcf6de /perl-install/lang.pm | |
| parent | 0a5b80c81ed313183500486e0a4f30a9a4748cf7 (diff) | |
| download | drakx-15d48009198ea46f218aa514252374a714bf5991.tar drakx-15d48009198ea46f218aa514252374a714bf5991.tar.gz drakx-15d48009198ea46f218aa514252374a714bf5991.tar.bz2 drakx-15d48009198ea46f218aa514252374a714bf5991.tar.xz drakx-15d48009198ea46f218aa514252374a714bf5991.zip | |
(write) fix configuring IM
Diffstat (limited to 'perl-install/lang.pm')
| -rw-r--r-- | perl-install/lang.pm | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/perl-install/lang.pm b/perl-install/lang.pm index e60cf45d0..6e8e3d5fc 100644 --- a/perl-install/lang.pm +++ b/perl-install/lang.pm @@ -1026,12 +1026,10 @@ sub write { } } - my %conf = %{$xim{$h->{LANG}}} if $xim{$h->{LANG}}; if ($locale->{IM}) { - delete @{$_}{qw(GTK_IM_MODULE XIM XIM_PROGRAM XMODIFIERS)} foreach $h, \%conf; + delete @$h{qw(GTK_IM_MODULE XIM XIM_PROGRAM XMODIFIERS)}; add2hash($h, $gtkqt_im{$locale->{IM}}); } - add2hash($h, \%conf); #- deactivate translations on console for RTL languages if ($h->{LANG} =~ /ar|fa|he|ur|yi/) { |