diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-09-09 08:55:32 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-09-09 08:55:32 +0000 |
| commit | 7dcc9e1efe578acb8c45c8e38d0d1344bd31616b (patch) | |
| tree | 67a940bd2aad5ee24f2937e6631b04569f15985a /perl-install/standalone/localedrake | |
| parent | c27aeaa260b451e788f08c65e4c2151c3cf14fab (diff) | |
| download | drakx-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/standalone/localedrake')
| -rw-r--r-- | perl-install/standalone/localedrake | 3 |
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; }; |