From 39ea47c4d6cd97d5ec2f46c2eedba6a19ec983e0 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 9 Sep 2004 07:50:26 +0000
Subject: (set_default_im) simplify

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

diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index b78c7272b..0e51e7673 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -619,9 +619,9 @@ sub get_default_im {
 
 sub set_default_im {
     my ($im, @langs) = @_;
-    add2hash($xim{$_}, $gtkqt_im{$im}) foreach @langs;
-    add2hash($xim{$_}, { XIM_PROGRAM => $im_xim_program{$im}{$_} }) foreach @langs;
     foreach (@langs) {
+        add2hash($xim{$_}, $gtkqt_im{$im});
+        add2hash($xim{$_}, { XIM_PROGRAM => $im_xim_program{$im}{$_} });
         $default_im{$_}{IM} = $im foreach $_, analyse_locale_name($_)->{main};
     }
 }
-- 
cgit v1.2.1