From d3a19a679ec4238e2ffc34f897b70444d175a9f4 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 9 Aug 2005 04:09:42 +0000
Subject: simplify

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

(limited to 'perl-install')

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};
 
-- 
cgit v1.2.1