From 16b2be4021cdd3ee9ea028dd72ce971246ca38cb Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Sun, 6 Aug 2000 09:23:26 +0000
Subject: [PATCH] try again

---
 perl/cluster.pl | 22 ++++++++++++++--------
 1 file changed, 14 insertions(+), 8 deletions(-)

diff --git a/perl/cluster.pl b/perl/cluster.pl
index 6ed864b1..6cdd417d 100755
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -327,17 +327,23 @@ dbg('err', "starting listener ...");
 Msg->new_server("$clusteraddr", $clusterport, \&login);
 
 # prime some signals
-$SIG{'INT'} = \&cease;
-$SIG{'TERM'} = \&cease;
-$SIG{'HUP'} = 'IGNORE';
-$SIG{'CHLD'} = \&reap;
+$SIG{INT} = \&cease;
+$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");  };
-
+$SIG{WINCH} = $SIG{STOP} = $SIG{CONT} = 'IGNORE';
+$SIG{KILL} = 'DEFAULT';     # as if it matters....
+
+# catch the rest with a hopeful message
+for (keys %SIG) {
+	if (!$SIG{$_}) {
+		dbg('chan', "Catching SIG $_");
+		$SIG{$_} = sub { my $sig = shift;	DXDebug::confess("Caught signal $sig");  }; 
+	}
+}
 
 # read in system messages
 DXM->init();
-- 
2.34.1