From 115b4b1145f86d90f20c0404a54fa907f06c30b0 Mon Sep 17 00:00:00 2001
From: pad <pad@mandriva.com>
Date: Mon, 6 Sep 1999 20:33:18 +0000
Subject: bugfix

---
 perl-install/install_steps.pm | 8 ++++++--
 1 file changed, 6 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 6e8bff2e9..6cd107081 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -81,8 +81,12 @@ sub errorInStep($$) {}
 #------------------------------------------------------------------------------
 sub selectLanguage {
     my ($o) = @_;
-    $o->{keyboard} ||= keyboard::lang2keyboard($o->{lang});
-    selectKeyboard($o);
+    lang::set($o->{lang});
+
+    unless ($o->{keyboard_force}) {
+	$o->{keyboard} = keyboard::lang2keyboard($o->{lang});
+	selectKeyboard($o);
+    }
 }
 #------------------------------------------------------------------------------
 sub selectKeyboard { 
-- 
cgit v1.2.1