summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-09-09 08:28:38 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-09-09 08:28:38 +0000
commit86b2b9555e94d486f9e8177f5cf9d699695b21fe (patch)
tree85977edee02b93bd1b5925b98ef158c331ab38d1 /perl-install
parenta3bec3485efa666ce06f1ba2d526fc91fd1d47bd (diff)
downloaddrakx-86b2b9555e94d486f9e8177f5cf9d699695b21fe.tar
drakx-86b2b9555e94d486f9e8177f5cf9d699695b21fe.tar.gz
drakx-86b2b9555e94d486f9e8177f5cf9d699695b21fe.tar.bz2
drakx-86b2b9555e94d486f9e8177f5cf9d699695b21fe.tar.xz
drakx-86b2b9555e94d486f9e8177f5cf9d699695b21fe.zip
(selectCountry) do not overwrite current IM (why does this only failed
with miniChinput???)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/any.pm2
1 files changed, 1 insertions, 1 deletions
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);