summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-09-09 07:50:26 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-09-09 07:50:26 +0000
commit39ea47c4d6cd97d5ec2f46c2eedba6a19ec983e0 (patch)
tree44c32b6a1c59d83f5d312394247eed57b2de5a7b /perl-install
parent450b801b2eb30b170e334b2151d8843f7a79fcfc (diff)
downloaddrakx-39ea47c4d6cd97d5ec2f46c2eedba6a19ec983e0.tar
drakx-39ea47c4d6cd97d5ec2f46c2eedba6a19ec983e0.tar.gz
drakx-39ea47c4d6cd97d5ec2f46c2eedba6a19ec983e0.tar.bz2
drakx-39ea47c4d6cd97d5ec2f46c2eedba6a19ec983e0.tar.xz
drakx-39ea47c4d6cd97d5ec2f46c2eedba6a19ec983e0.zip
(set_default_im) simplify
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/lang.pm4
1 files 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};
}
}