summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-09-09 08:55:32 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-09-09 08:55:32 +0000
commit7dcc9e1efe578acb8c45c8e38d0d1344bd31616b (patch)
tree67a940bd2aad5ee24f2937e6631b04569f15985a /perl-install
parentc27aeaa260b451e788f08c65e4c2151c3cf14fab (diff)
downloaddrakx-7dcc9e1efe578acb8c45c8e38d0d1344bd31616b.tar
drakx-7dcc9e1efe578acb8c45c8e38d0d1344bd31616b.tar.gz
drakx-7dcc9e1efe578acb8c45c8e38d0d1344bd31616b.tar.bz2
drakx-7dcc9e1efe578acb8c45c8e38d0d1344bd31616b.tar.xz
drakx-7dcc9e1efe578acb8c45c8e38d0d1344bd31616b.zip
only default to per locale default IM when switching between locales
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/standalone/localedrake3
1 files changed, 3 insertions, 0 deletions
diff --git a/perl-install/standalone/localedrake b/perl-install/standalone/localedrake
index 246499c32..8ea80873b 100644
--- a/perl-install/standalone/localedrake
+++ b/perl-install/standalone/localedrake
@@ -45,7 +45,10 @@ eval {
local $::isWizard = 1;
local $::Wizard_no_previous = 1;
language:
+ my $old_lang = $locale->{lang};
$locale->{lang} = any::selectLanguage($in, $locale->{lang});
+ print "$old_lang => $locale->{lang}\n";
+ $locale->{IM} ||= lang::get_default_im($locale->{lang}) if $old_lang ne $locale->{lang};
undef $::Wizard_no_previous;
select_country() or goto language;
};