From 3bc20c1ea1a306475ea8eab8e8e1973625ca785f Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 15 Dec 1999 12:50:29 +0000 Subject: no_comment --- perl-install/install_any.pm | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'perl-install/install_any.pm') 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 { -- cgit v1.2.1