summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-08-09 04:09:42 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-08-09 04:09:42 +0000
commitd3a19a679ec4238e2ffc34f897b70444d175a9f4 (patch)
treebae1955db5982b81342a1a521442d5e7994102a3
parentd9984ee2ea9405077b933fa282f6d04d06b553d1 (diff)
downloaddrakx-d3a19a679ec4238e2ffc34f897b70444d175a9f4.tar
drakx-d3a19a679ec4238e2ffc34f897b70444d175a9f4.tar.gz
drakx-d3a19a679ec4238e2ffc34f897b70444d175a9f4.tar.bz2
drakx-d3a19a679ec4238e2ffc34f897b70444d175a9f4.tar.xz
drakx-d3a19a679ec4238e2ffc34f897b70444d175a9f4.zip
simplify
-rw-r--r--perl-install/lang.pm7
1 files changed, 3 insertions, 4 deletions
diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index 6ec04261d..18de34037 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -1050,11 +1050,10 @@ sub write {
$h->{ENC} = $locale2ENC{$locale->{lang}};
$h->{ENC} = 'utf8' if $h->{ENC} && $locale->{utf8};
- my $im = $locale->{IM};
- if ($im) {
- log::explanations(qq(Configuring "$im" IM));
+ if ($locale->{IM}) {
+ log::explanations(qq(Configuring "$locale->{IM}" IM));
foreach (@IM_i18n_fields) {
- $h->{$_} = $IM_config{$im}{$_};
+ $h->{$_} = $IM_config{$locale->{IM}}{$_};
}
$h->{QT_IM_MODULE} = $h->{GTK_IM_MODULE};