diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-12-15 12:50:29 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-12-15 12:50:29 +0000 |
| commit | 3bc20c1ea1a306475ea8eab8e8e1973625ca785f (patch) | |
| tree | 5cecbffa4160d47c8de483e723474ec668c0bcc6 /perl-install/install_any.pm | |
| parent | 42ded0f5b50145273e019818e4e3eb002667aff8 (diff) | |
| download | drakx-backup-do-not-use-3bc20c1ea1a306475ea8eab8e8e1973625ca785f.tar drakx-backup-do-not-use-3bc20c1ea1a306475ea8eab8e8e1973625ca785f.tar.gz drakx-backup-do-not-use-3bc20c1ea1a306475ea8eab8e8e1973625ca785f.tar.bz2 drakx-backup-do-not-use-3bc20c1ea1a306475ea8eab8e8e1973625ca785f.tar.xz drakx-backup-do-not-use-3bc20c1ea1a306475ea8eab8e8e1973625ca785f.zip | |
no_comment
Diffstat (limited to 'perl-install/install_any.pm')
| -rw-r--r-- | perl-install/install_any.pm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index da0a773a2..369227b9a 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -122,13 +122,18 @@ sub setPackages($) { push @{$o->{default_packages}}, "kernel-secure" if $o->{security} > 3; push @{$o->{default_packages}}, "kernel-smp" if $o->{security} <= 3 && detect_devices::hasSMP(); #- no need for kernel-smp if we have kernel-secure which is smp push @{$o->{default_packages}}, "kernel-pcmcia-cs" if $o->{pcmcia}; + push @{$o->{default_packages}}, "apmd" if $o->{pcmcia}; push @{$o->{default_packages}}, "raidtools" if !is_empty_hash_ref($o->{raid}); pkgs::getDeps($o->{packages}); my $c; ($o->{compss}, $c) = pkgs::readCompss($o->{packages}); $o->{compssListLevels} = pkgs::readCompssList($o->{packages}, $c); - $o->{compssUsers} = pkgs::readCompssUsers($o->{packages}, $o->{compss}); + ($o->{compssUsers}, $o->{compssUsersSorted}) = pkgs::readCompssUsers($o->{packages}, $o->{compss}); + + my @l = (); + push @l, "kapm" if $o->{pcmcia}; + $_->{values} = [ map { $_ + 50 } @{$_->{values}} ] foreach grep {$_} map { $o->{packages}{$_} } @l; grep { !$o->{packages}{$_} && log::l("missing base package $_") } @{$o->{base}} and die "missing some base packages"; } else { |