diff options
| -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 |