*** empty log message ***

[spider.git] / perl / client.pl

diff --git a/perl/client.pl b/perl/client.pl
index 6358d0225f6e4ad7fa1ae02f781ff4fff676cae8..ffae6e584ebfbc5fc4c5fa44ef7f929cbe031bc9 100755 (executable)
--- 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) {