X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=perl%2Fclient.pl;h=ffae6e584ebfbc5fc4c5fa44ef7f929cbe031bc9;hb=d8b3b94c40205c64e08402f4a4b272a55c14f80d;hp=6358d0225f6e4ad7fa1ae02f781ff4fff676cae8;hpb=678715c76fa49f08acb30df0760b34407f49675c;p=spider.git

diff --git a/perl/client.pl b/perl/client.pl
index 6358d022..ffae6e58 100755
--- a/perl/client.pl
+++ b/perl/client.pl
@@ -345,6 +345,7 @@ $SIG{'INT'} = \&sig_term;
 $SIG{'TERM'} = \&sig_term;
 $SIG{'HUP'} = 'IGNORE';
 $SIG{'CHLD'} = \&sig_chld;
+$SIG{'ALRM'} = \&timeout;
 
 dbgadd('connect');
 
@@ -415,7 +416,7 @@ if ($connsort eq "connect") {
 	open(IN, "$cpath/$mcall") or cease(2);
 	@in = <IN>;
 	close IN;
-	
+
 	alarm($timeout);
 	
 	for (@in) {