diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2002-07-09 15:43:36 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2002-07-09 15:43:36 +0000 |
| commit | 4779d899e88b66177a18e3f762230dd543f27258 (patch) | |
| tree | 0385873d7a970638edc2f5dd5d075b35dcc5292d /perl-install | |
| parent | 601e4d7e233d94fe0b39c3c584d3f3a0d8fa054e (diff) | |
| download | drakx-4779d899e88b66177a18e3f762230dd543f27258.tar drakx-4779d899e88b66177a18e3f762230dd543f27258.tar.gz drakx-4779d899e88b66177a18e3f762230dd543f27258.tar.bz2 drakx-4779d899e88b66177a18e3f762230dd543f27258.tar.xz drakx-4779d899e88b66177a18e3f762230dd543f27258.zip | |
time out after 200 seconds
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/service_harddrake | 7 |
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 |