X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=6ed864b13578ce5bf175310b92351128110ef4bc;hb=5dd49f32f869e946267b7983499b1df741442472;hp=cab4b0baf24339032f360f541bfb791049653f4d;hpb=961ba05a38ad079e1fe72de96a59b036b98c35d2;p=spider.git

diff --git a/perl/cluster.pl b/perl/cluster.pl
index cab4b0ba..6ed864b1 100755
--- 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;