From d4c9c02a053b920628c507c203cd907fe7f3f26a Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Tue, 7 Sep 2004 08:51:37 +0000
Subject: (selectLanguage) set default IM (else IM was only set if one click on
 "Country / Region" in summary)

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

diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index e143d53c5..cb5e879e6 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -107,6 +107,7 @@ sub selectLanguage {
     if (!exists $o->{locale}{country}) {
 	my $h = lang::analyse_locale_name(lang::l2locale($o->{locale}{lang}));
 	$o->{locale}{country} = $h->{country} if $h->{country};
+	$o->{locale}{IM} = lang::get_default_im($o->{locale}{lang});
     }
 
     lang::set($o->{locale}, !$o->isa('interactive::gtk'));
-- 
cgit v1.2.1