summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-07-01 18:50:20 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-07-01 18:50:20 +0000
commite82688c8b8f639705356d25c180ffe754c2b2c34 (patch)
tree5aaa31fba94a1b2b7f19707c79ecde769ce769d4 /perl-install/install_steps.pm
parent8acdea865038475cdb1884abe889a4175975aa2f (diff)
downloaddrakx-backup-do-not-use-e82688c8b8f639705356d25c180ffe754c2b2c34.tar
drakx-backup-do-not-use-e82688c8b8f639705356d25c180ffe754c2b2c34.tar.gz
drakx-backup-do-not-use-e82688c8b8f639705356d25c180ffe754c2b2c34.tar.bz2
drakx-backup-do-not-use-e82688c8b8f639705356d25c180ffe754c2b2c34.tar.xz
drakx-backup-do-not-use-e82688c8b8f639705356d25c180ffe754c2b2c34.zip
*** empty log message ***
Diffstat (limited to 'perl-install/install_steps.pm')
-rw-r--r--perl-install/install_steps.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index 2cee5dbe2..897edd139 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -49,7 +49,7 @@ sub doPartitionDisks($$) {
sub choosePackages($$$) {
my ($o, $packages, $comps) = @_;
- foreach ('base', @{$o->{default}->{comps}}) {
+ foreach ('Base', @{$o->{default}->{comps}}) {
$comps->{$_}->{selected} = 1;
foreach (@{$comps->{$_}->{packages}}) { $_->{selected} = 1; }
}
@@ -74,8 +74,8 @@ sub beforeInstallPackages($) {
sub installPackages($$) {
my ($o, $packages) = @_;
- my $toInstall = [ $packages->{basesystem},
- grep { $_->{selected} && $_->{name} ne "basesystem" } values %$packages ];
+ my $toInstall = [ grep { $_->{selected} } values %$packages ];
+ pkgs::init_db($o->{prefix}, $o->{isUpgrade});
pkgs::install($o->{prefix}, $o->{method}, $toInstall, $o->{isUpgrade}, 0);
}
@@ -153,7 +153,7 @@ sub addUser($) {
}
sub createBootdisk($) {
- lilo::mkbootdisk("/mnt", versionString()) if $o->{mkbootdisk} || $o->{default}->{mkbootdisk};
+ lilo::mkbootdisk($o->{prefix}, versionString()) if $o->{mkbootdisk} || $o->{default}->{mkbootdisk};
}
sub setupBootloader($) {