From 16b2be4021cdd3ee9ea028dd72ce971246ca38cb Mon Sep 17 00:00:00 2001 From: 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.43.0