From 6e0714d453adf6cb59f3a8083d3561d5f274be16 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 7 May 2000 15:41:55 +0000
Subject: no_comment

---
 perl-install/install_steps.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

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

diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index bba158389..03115536c 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -87,7 +87,8 @@ sub set_help { 1 }
 #------------------------------------------------------------------------------
 sub selectLanguage {
     my ($o) = @_;
-    lang::set($o->{lang}, $o->{langs});
+    lang::set($o->{lang});
+    $o->{langs} ||= [ $o->{lang} ];
 
     if ($o->{keyboard_unsafe} || !$o->{keyboard}) {
 	$o->{keyboard_unsafe} = 1;
@@ -98,7 +99,8 @@ sub selectLanguage {
 #------------------------------------------------------------------------------
 sub selectKeyboard {
     my ($o) = @_;
-    keyboard::setup($o->{keyboard})
+    keyboard::setup($o->{keyboard});
+    lang::set_langs($o->{langs});
 }
 #------------------------------------------------------------------------------
 sub selectPath {}
-- 
cgit v1.2.1