summaryrefslogtreecommitdiffstats
path: root/perl-install/install2.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-06-24 10:15:52 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-06-24 10:15:52 +0000
commit2a0bbee296669686a3332e6595bc1021757249b0 (patch)
treef20cb8e3fe48e91f0184f16f4f773ba4b0dee9dc /perl-install/install2.pm
parent13c1505ba44c0d57a4d5bdb6ce62267a34f9b510 (diff)
downloaddrakx-2a0bbee296669686a3332e6595bc1021757249b0.tar
drakx-2a0bbee296669686a3332e6595bc1021757249b0.tar.gz
drakx-2a0bbee296669686a3332e6595bc1021757249b0.tar.bz2
drakx-2a0bbee296669686a3332e6595bc1021757249b0.tar.xz
drakx-2a0bbee296669686a3332e6595bc1021757249b0.zip
no_comment
Diffstat (limited to 'perl-install/install2.pm')
-rw-r--r--perl-install/install2.pm6
1 files changed, 3 insertions, 3 deletions
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]