diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-03-22 23:18:25 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-03-22 23:18:25 +0000 |
| commit | 9ee84a2c340af2d4b1912d7573c2223368a22903 (patch) | |
| tree | 3d59260e22c2e03770f9a24370b11e9e350b18f5 /perl-install/install_any.pm | |
| parent | 5c1d5c819d907a1bb5e98477b9aeb7dc9e2fda9e (diff) | |
| download | drakx-backup-do-not-use-9ee84a2c340af2d4b1912d7573c2223368a22903.tar drakx-backup-do-not-use-9ee84a2c340af2d4b1912d7573c2223368a22903.tar.gz drakx-backup-do-not-use-9ee84a2c340af2d4b1912d7573c2223368a22903.tar.bz2 drakx-backup-do-not-use-9ee84a2c340af2d4b1912d7573c2223368a22903.tar.xz drakx-backup-do-not-use-9ee84a2c340af2d4b1912d7573c2223368a22903.zip | |
no_comment
Diffstat (limited to 'perl-install/install_any.pm')
| -rw-r--r-- | perl-install/install_any.pm | 11 |
1 files changed, 2 insertions, 9 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index 321c6731a..f9f04da84 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -185,8 +185,6 @@ sub setPackages($) { pkgs::getDeps($o->{packages}); - push @{$o->{base}}, @{delete($o->{"base_" . arch()}) || []}; - $o->{compss} = pkgs::readCompss($o->{packages}); $o->{compssListLevels} = pkgs::readCompssList($o->{packages}, $o->{compss}); ($o->{compssUsers}, $o->{compssUsersSorted}) = pkgs::readCompssUsers($o->{packages}, $o->{compss}); @@ -195,12 +193,7 @@ sub setPackages($) { push @l, "kapm" if $o->{pcmcia}; $_->{values} = [ map { $_ + 50 } @{$_->{values}} ] foreach grep {$_} map { $o->{packages}{$_} } @l; - grep { !pkgs::packageByName($o->{packages}, $_) && log::l("missing base package $_") } @{$o->{base}} and die "missing some base packages"; - - foreach (@{$o->{base}}) { - my $p = pkgs::packageByName($o->{packages}, $_) or log::l("missing base package $_"), next; - pkgs::selectPackage($o->{packages}, $p, 1); - } + pkgs::selectPackage($o->{packages}, pkgs::packageByName($o->{packages}, 'basesystem') || die("missing basesystem package"), 1); #- must be done after selecting base packages (to save memory) pkgs::getProvides($o->{packages}); @@ -486,7 +479,7 @@ sub g_auto_install(;$) { my @fields = qw(mntpoint type size); $o->{partitions} = [ map { my %l; @l{@fields} = @$_{@fields}; \%l } grep { $_->{mntpoint} } @{$::o->{fstab}} ]; - exists $::o->{$_} and $o->{$_} = $::o->{$_} foreach qw(lang autoSCSI authentication printer mouse wacom netc timezone superuser intf keyboard mkbootdisk base users installClass partitioning isUpgrade manualFstab nomouseprobe crypto modem useSupermount); #- TODO modules bootloader + exists $::o->{$_} and $o->{$_} = $::o->{$_} foreach qw(lang autoSCSI authentication printer mouse wacom netc timezone superuser intf keyboard mkbootdisk users installClass partitioning isUpgrade manualFstab nomouseprobe crypto modem useSupermount); #- TODO modules bootloader if (my $card = $::o->{X}{card}) { $o->{X}{card}{$_} = $card->{$_} foreach qw(default_depth); |