diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-07-01 18:50:20 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-07-01 18:50:20 +0000 |
| commit | e82688c8b8f639705356d25c180ffe754c2b2c34 (patch) | |
| tree | 5aaa31fba94a1b2b7f19707c79ecde769ce769d4 /perl-install/install_steps.pm | |
| parent | 8acdea865038475cdb1884abe889a4175975aa2f (diff) | |
| download | drakx-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.pm | 8 |
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($) { |