From e88b31fecb94d372c66bcfb79607a651d4a5e686 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Wed, 18 Aug 2004 10:21:23 +0000
Subject: fix default IM setting when switching language

---
 perl-install/any.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'perl-install/any.pm')

diff --git a/perl-install/any.pm b/perl-install/any.pm
index cde0da8f4..0e2c480a0 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -734,6 +734,7 @@ sub selectCountry {
 	    $h->{country});
     } @lang::locales;
     @best == 1 and @best = ();
+    $locale->{IM} = lang::get_default_im($locale->{lang});
 
     my ($other, $ext_country);
     member($country, @best) or ($ext_country, $country) = ($country, $ext_country);
-- 
cgit v1.2.1