From 86b2b9555e94d486f9e8177f5cf9d699695b21fe Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 9 Sep 2004 08:28:38 +0000
Subject: (selectCountry) do not overwrite current IM (why does this only
 failed with miniChinput???)

---
 perl-install/any.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/any.pm')

diff --git a/perl-install/any.pm b/perl-install/any.pm
index 52d9b71f4..798e3b409 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -752,7 +752,7 @@ sub selectCountry {
 	    $h->{country});
     } @lang::locales;
     @best == 1 and @best = ();
-    $locale->{IM} = lang::get_default_im($locale->{lang});
+    $locale->{IM} ||= lang::get_default_im($locale->{lang});
 
     my ($other, $ext_country);
     member($country, @best) or ($ext_country, $country) = ($country, $ext_country);
-- 
cgit v1.2.1