merged changes

[spider.git] / perl / cluster.pl

diff --git a/perl/cluster.pl b/perl/cluster.pl
index cab4b0baf24339032f360f541bfb791049653f4d..6ed864b13578ce5bf175310b92351128110ef4bc 100755 (executable)
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -332,6 +332,13 @@ $SIG{'TERM'} = \&cease;
 $SIG{'HUP'} = 'IGNORE';
 $SIG{'CHLD'} = \&reap;
 
+$SIG{PIPE} = sub {     dbg('err', "Broken PIPE signal received"); };
+$SIG{IO} = sub {       dbg('err', "SIGIO received"); };
+$SIG{ILL} = $SIG{FPE} = 
+       $SIG{SEGV} = $SIG{USR1} = $SIG{USR2} =
+       $SIG{BUS} = sub { my $sig = shift;      DXDebug::confess("Caught signal $sig");  };
+
+
 # read in system messages
 DXM->init();
 
@@ -381,11 +388,6 @@ dbg('err', "orft we jolly well go ...");
 
 #open(DB::OUT, "|tee /tmp/aa");
 
-$SIG{PIPE} = sub { 
-       #$DB::single = 1;  
-       dbg('err', "Broken PIPE signal received"); 
-};
-
 for (;;) {
        my $timenow;
 #      $DB::trace = 1;