summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-07-18 21:05:17 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-07-18 21:05:17 +0000
commitdd40621fa1311c9bce97902e2db57f8b15fab449 (patch)
tree021c7c75ccde203bbc43ee77a66f9585d9157c61 /perl-install/install_steps.pm
parent61e87a9fb56f97ae843557511ba3609f9849cc2e (diff)
downloaddrakx-dd40621fa1311c9bce97902e2db57f8b15fab449.tar
drakx-dd40621fa1311c9bce97902e2db57f8b15fab449.tar.gz
drakx-dd40621fa1311c9bce97902e2db57f8b15fab449.tar.bz2
drakx-dd40621fa1311c9bce97902e2db57f8b15fab449.tar.xz
drakx-dd40621fa1311c9bce97902e2db57f8b15fab449.zip
*** empty log message ***
Diffstat (limited to 'perl-install/install_steps.pm')
-rw-r--r--perl-install/install_steps.pm7
1 files changed, 2 insertions, 5 deletions
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index ace94a692..ceef9a294 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -40,7 +40,6 @@ sub leavingStep($$) {
}
sub chooseLanguage($) {
-# eval { run_program::run('loadkeys', "/tmp/$o->{default}->{lang}) }; $@ and log::l("loadkeys failed");
$o->{default}->{lang};
}
sub selectInstallOrUpgrade($) {
@@ -78,8 +77,6 @@ sub choosePackages($$$) {
sub beforeInstallPackages($) {
- $o->{method}->prepareMedia($o->{prefix}, $o->{fstab}) unless $::testing;
-
foreach (qw(dev etc home mnt tmp var var/tmp var/lib var/lib/rpm)) {
mkdir "$o->{prefix}/$_", 0755;
}
@@ -96,7 +93,7 @@ sub beforeInstallPackages($) {
sub installPackages($$) {
my ($o, $packages) = @_;
my $toInstall = [ grep { $_->{selected} } values %$packages ];
- pkgs::install($o->{prefix}, $o->{method}, $toInstall, $o->{isUpgrade}, 0);
+ pkgs::install($o->{prefix}, $toInstall, $o->{isUpgrade}, 0);
}
sub afterInstallPackages($) {
@@ -205,7 +202,7 @@ sub setupXfree {
$o->{packages}->{$x} or die "can't find X server $x";
log::l("I will install the $x package");
- pkgs::install($o->{prefix}, $o->{method}, $o->{packages}->{$x}, $o->{isUpgrade}, 0);
+ pkgs::install($o->{prefix}, $o->{packages}->{$x}, $o->{isUpgrade}, 0);
#TODO
}