diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-11-09 15:59:39 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-11-09 15:59:39 +0000 |
| commit | ab18bd5253ea6b8edcc72f176566505e9ba84390 (patch) | |
| tree | 78f959fa158974381055d796e23b7a320aa83c52 /perl-install/install_any.pm | |
| parent | c3b5ff8158ed25327e34de957573b8c17b80b0eb (diff) | |
| download | drakx-backup-do-not-use-ab18bd5253ea6b8edcc72f176566505e9ba84390.tar drakx-backup-do-not-use-ab18bd5253ea6b8edcc72f176566505e9ba84390.tar.gz drakx-backup-do-not-use-ab18bd5253ea6b8edcc72f176566505e9ba84390.tar.bz2 drakx-backup-do-not-use-ab18bd5253ea6b8edcc72f176566505e9ba84390.tar.xz drakx-backup-do-not-use-ab18bd5253ea6b8edcc72f176566505e9ba84390.zip | |
no_comment
Diffstat (limited to 'perl-install/install_any.pm')
| -rw-r--r-- | perl-install/install_any.pm | 9 |
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 { |