summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/service_harddrake4
1 files changed, 1 insertions, 3 deletions
diff --git a/perl-install/standalone/service_harddrake b/perl-install/standalone/service_harddrake
index d66b6fc43..8d84ba973 100755
--- a/perl-install/standalone/service_harddrake
+++ b/perl-install/standalone/service_harddrake
@@ -76,9 +76,7 @@ foreach (@harddrake::data::tree) {
alarm (0);
};
- next unless ($@); # timed out
- print "CANCELED\n" if $res;
- next unless ($res); # canceled
+ next unless ($@ && $res); # timed out || canceled
if (my $pid = fork) {
require POSIX;
POSIX::wait();