From c7fc02ade71cad25b5b749ec1473c836f3dc7e10 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 21 Mar 2008 07:55:32 +0000
Subject: - correctly set country when given lang=xxx on /proc/cmdline  
 (regression introduced in 10.16) (#39104)

---
 perl-install/install/NEWS        | 3 +++
 perl-install/install/install2.pm | 2 +-
 2 files changed, 4 insertions(+), 1 deletion(-)

(limited to 'perl-install/install')

diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index cc4255a35..9b6b654f6 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,6 @@
+- correctly set country when given lang=xxx on /proc/cmdline
+  (regression introduced in 10.16) (#39104)
+
 Version 10.18 - 21 March 2008
 
 - when reformatting swap, keep existing UUID (#38877)
diff --git a/perl-install/install/install2.pm b/perl-install/install/install2.pm
index 9f2dda1cc..ab09f0874 100644
--- a/perl-install/install/install2.pm
+++ b/perl-install/install/install2.pm
@@ -522,7 +522,7 @@ sub main {
     #- for auto_install compatibility with old $o->{lang},
     #- and also for --lang and --flang
     if ($o->{lang}) {
-	put_in_hash($o->{locale}, lang::system_locales_to_ourlocale($o->{lang}, $o->{lang}));
+	put_in_hash($o->{locale}, lang::lang_to_ourlocale($o->{lang}));
     }
     lang::set($o->{locale});
 
-- 
cgit v1.2.1