From 15d48009198ea46f218aa514252374a714bf5991 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Fri, 6 Aug 2004 07:24:14 +0000
Subject: (write) fix configuring IM

---
 perl-install/lang.pm | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'perl-install/lang.pm')

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/) {
-- 
cgit v1.2.1