summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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};