diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-09-09 08:28:38 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-09-09 08:28:38 +0000 |
| commit | 86b2b9555e94d486f9e8177f5cf9d699695b21fe (patch) | |
| tree | 85977edee02b93bd1b5925b98ef158c331ab38d1 /perl-install | |
| parent | a3bec3485efa666ce06f1ba2d526fc91fd1d47bd (diff) | |
| download | drakx-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.pm | 2 |
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); |