From 6968cdd405b7c278da255e025362aeff70d73557 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Thu, 3 Apr 2008 05:13:57 +0000
Subject: reuse lang from command line (#34052)

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

(limited to 'perl-install')

diff --git a/perl-install/standalone/finish-install b/perl-install/standalone/finish-install
index b269dd110..ead0b526b 100755
--- a/perl-install/standalone/finish-install
+++ b/perl-install/standalone/finish-install
@@ -39,6 +39,9 @@ sub ask_license() {
 sub ask_language() {
     require lang;
     $locale = lang::read();
+    my ($lang) = cat_("/proc/cmdline") =~ /\blang=(.+?)\b/;
+    put_in_hash($locale, lang::lang_to_ourlocale($lang))
+      if $lang && member($lang, lang::list_langs(exclude_non_installed => 1));
     any::selectLanguage_and_more_standalone($in, $locale);
     lang::write_and_install($locale, $in->do_pkgs);
 }
-- 
cgit v1.2.1