summaryrefslogtreecommitdiffstats
path: root/perl-install/install_any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-11-09 15:59:39 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-11-09 15:59:39 +0000
commitab18bd5253ea6b8edcc72f176566505e9ba84390 (patch)
tree78f959fa158974381055d796e23b7a320aa83c52 /perl-install/install_any.pm
parentc3b5ff8158ed25327e34de957573b8c17b80b0eb (diff)
downloaddrakx-ab18bd5253ea6b8edcc72f176566505e9ba84390.tar
drakx-ab18bd5253ea6b8edcc72f176566505e9ba84390.tar.gz
drakx-ab18bd5253ea6b8edcc72f176566505e9ba84390.tar.bz2
drakx-ab18bd5253ea6b8edcc72f176566505e9ba84390.tar.xz
drakx-ab18bd5253ea6b8edcc72f176566505e9ba84390.zip
no_comment
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r--perl-install/install_any.pm9
1 files changed, 2 insertions, 7 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index d02a80608..ef36e6fca 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -6,7 +6,7 @@ use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK);
@ISA = qw(Exporter);
%EXPORT_TAGS = (
- all => [ qw(getNextStep spawnSync spawnShell addToBeDone) ],
+ all => [ qw(getNextStep spawnShell addToBeDone) ],
);
@EXPORT_OK = map { @$_ } values %EXPORT_TAGS;
@@ -65,12 +65,6 @@ sub getNextStep {
$s;
}
-sub spawnSync {
- return if $::o->{localInstall} || $::testing;
- fork and return;
- while (1) { sleep(30); sync(); }
-}
-
sub spawnShell {
return if $::o->{localInstall} || $::testing;
@@ -129,6 +123,7 @@ sub setPackages($) {
$o->{compssUsers} = pkgs::readCompssUsers($o->{packages}, $o->{compss});
push @{$o->{base}}, "kernel-smp" if detect_devices::hasSMP();
push @{$o->{base}}, "kernel-pcmcia-cs" if $o->{pcmcia};
+ push @{$o->{base}}, "raidtools" if !is_empty_hash_ref($o->{raid});
grep { !$o->{packages}{$_} && log::l("missing base package $_") } @{$o->{base}} and die "missing some base packages";
} else {