diff options
| -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); |