From 4779d899e88b66177a18e3f762230dd543f27258 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Tue, 9 Jul 2002 15:43:36 +0000
Subject: time out after 200 seconds

---
 perl-install/standalone/service_harddrake | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'perl-install')

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
-- 
cgit v1.2.1