summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/service_harddrake
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2002-07-09 15:43:36 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2002-07-09 15:43:36 +0000
commit4779d899e88b66177a18e3f762230dd543f27258 (patch)
tree0385873d7a970638edc2f5dd5d075b35dcc5292d /perl-install/standalone/service_harddrake
parent601e4d7e233d94fe0b39c3c584d3f3a0d8fa054e (diff)
downloaddrakx-backup-do-not-use-4779d899e88b66177a18e3f762230dd543f27258.tar
drakx-backup-do-not-use-4779d899e88b66177a18e3f762230dd543f27258.tar.gz
drakx-backup-do-not-use-4779d899e88b66177a18e3f762230dd543f27258.tar.bz2
drakx-backup-do-not-use-4779d899e88b66177a18e3f762230dd543f27258.tar.xz
drakx-backup-do-not-use-4779d899e88b66177a18e3f762230dd543f27258.zip
time out after 200 seconds
Diffstat (limited to 'perl-install/standalone/service_harddrake')
-rwxr-xr-xperl-install/standalone/service_harddrake7
1 files changed, 6 insertions, 1 deletions
diff --git a/perl-install/standalone/service_harddrake b/perl-install/standalone/service_harddrake
index 09f86ad7c..c99ab907e 100755
--- a/perl-install/standalone/service_harddrake
+++ b/perl-install/standalone/service_harddrake
@@ -3,7 +3,7 @@
use lib qw(/usr/lib/libDrakX);
-#use strict;
+use strict;
use standalone; #- warning, standalone must be loaded very first, for 'explanations'
use MDK::Common;
@@ -36,6 +36,9 @@ my $previous_config = -f $last_boot_config ? do $last_boot_config : {};
my %config;
+$SIG{SIGALRM} = sub { die "time out elapsed"; };
+alarm 200;
+
# For each hw, class, detect device, compare and offer to reconfigure if
# needed
foreach (@harddrake::data::tree) {
@@ -88,6 +91,8 @@ foreach (@harddrake::data::tree) {
}
}
+alarm 0;
+
$Data::Dumper::Terse = 1; # don't output names where feasible
$Data::Dumper::Purity = 1; # fill in the holes for eval