diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-07-18 21:05:17 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-07-18 21:05:17 +0000 |
| commit | dd40621fa1311c9bce97902e2db57f8b15fab449 (patch) | |
| tree | 021c7c75ccde203bbc43ee77a66f9585d9157c61 /perl-install/install_steps.pm | |
| parent | 61e87a9fb56f97ae843557511ba3609f9849cc2e (diff) | |
| download | drakx-backup-do-not-use-dd40621fa1311c9bce97902e2db57f8b15fab449.tar drakx-backup-do-not-use-dd40621fa1311c9bce97902e2db57f8b15fab449.tar.gz drakx-backup-do-not-use-dd40621fa1311c9bce97902e2db57f8b15fab449.tar.bz2 drakx-backup-do-not-use-dd40621fa1311c9bce97902e2db57f8b15fab449.tar.xz drakx-backup-do-not-use-dd40621fa1311c9bce97902e2db57f8b15fab449.zip | |
*** empty log message ***
Diffstat (limited to 'perl-install/install_steps.pm')
| -rw-r--r-- | perl-install/install_steps.pm | 7 |
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 } |