From 8923219f1ad7c02035f2060fbddedff45b674891 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Mon, 20 Apr 2009 22:26:36 +0000
Subject: (ask_language) handle both "ll_CC" and "ll" locales parameter
 (#49914)

---
 perl-install/standalone/finish-install | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'perl-install/standalone')

diff --git a/perl-install/standalone/finish-install b/perl-install/standalone/finish-install
index d751edeaa..2034ca255 100755
--- a/perl-install/standalone/finish-install
+++ b/perl-install/standalone/finish-install
@@ -40,8 +40,9 @@ sub ask_language() {
     require lang;
     $locale = lang::read();
     my ($lang) = cat_("/proc/cmdline") =~ /\blang=(.+?)\b/;
-    if ($lang && member($lang, lang::list_langs(exclude_non_installed => 1))) {
-	put_in_hash($locale, lang::lang_to_ourlocale($lang));
+    my $h = lang::lang_to_ourlocale($lang);
+    if ($lang && member($h->{lang}, lang::list_langs(exclude_non_installed => 1))) {
+	put_in_hash($locale, $h);
 	lang::set($locale);
     }
     any::selectLanguage_standalone($in, $locale);
-- 
cgit v1.2.1