From 7dcc9e1efe578acb8c45c8e38d0d1344bd31616b Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 9 Sep 2004 08:55:32 +0000
Subject: only default to per locale default IM when switching between locales

---
 perl-install/standalone/localedrake | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'perl-install')

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;
 };
-- 
cgit v1.2.1