From 4ce4095ffa480d6b68f38035bce2efa86905d1aa Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 23 Feb 2006 10:55:31 +0000
Subject: create lang::lang_changed() to ensure {country} is set according to
 the lang (useful for finish-install where choosing fr gives fr_US)

---
 perl-install/lang.pm | 8 ++++++++
 1 file changed, 8 insertions(+)

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

diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index d692b3eca..64d07fcd7 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -983,6 +983,14 @@ sub system_locales_to_ourlocale {
     $locale;
 }
 
+sub lang_changed {
+    my ($locale) = @_;
+    my $h = analyse_locale_name(l2locale($locale->{lang}));
+    $locale->{country} = $h->{country} if $h->{country};
+
+    $locale->{IM} = get_default_im($locale->{lang});
+}
+
 sub read {
     my ($b_user_only) = @_;
     my ($f1, $f2) = ("$::prefix$ENV{HOME}/.i18n", "$::prefix/etc/sysconfig/i18n");
-- 
cgit v1.2.1