From 2a0bbee296669686a3332e6595bc1021757249b0 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sat, 24 Jun 2000 10:15:52 +0000
Subject: no_comment

---
 perl-install/install2.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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

diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index b1ec9847c..d2fd9d458 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -236,7 +236,7 @@ sub selectLanguage {
 
     addToBeDone {
 	lang::write($o->{prefix});
-	keyboard::write($o->{prefix}, $o->{keyboard});
+	keyboard::write($o->{prefix}, lang::lang2charset($o->{lang}), $o->{keyboard});
     } 'doInstallStep' unless $::g_auto_install;
 }
 
@@ -270,7 +270,7 @@ sub selectKeyboard {
     #- if we go back to the selectKeyboard, you must rewrite
     addToBeDone {
 	lang::write($o->{prefix});
-	keyboard::write($o->{prefix}, $o->{keyboard});
+	keyboard::write($o->{prefix}, lang::lang2charset($o->{lang}), $o->{keyboard});
     } 'doInstallStep' unless $::g_auto_install;
 }
 
@@ -730,7 +730,7 @@ sub main {
 
     -e "$o->{prefix}/usr/bin/urpmi" or eval { commands::rm("-rf", "$o->{prefix}/var/lib/urpmi") };
 
-    #- have the really bleeding edge ddebug.log for this f*cking msec :-/
+    #- have the really bleeding edge ddebug.log
     eval { commands::cp('-f', "/tmp/ddebug.log", "$o->{prefix}/root") };
 
     #- ala pixel? :-) [fpons]
-- 
cgit v1.2.1