From 3a2974725a88f90678ca80ec5fed0cad8a7ae73f Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 8 Oct 2000 22:48:45 +0000
Subject: no_comment

---
 perl-install/install_steps.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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

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