From 60c149d28cdd9b8730890fa790c43b79f8409cb3 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 9 Jan 2001 23:33:46 +0000
Subject: (selectLanguage): $o->{langs} is now a ref so initialize as such

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

(limited to 'perl-install')

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