X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=6cdd417d16ccf2b4cfabf8fcf7fed20ca6a5e907;hb=16b2be4021cdd3ee9ea028dd72ce971246ca38cb;hp=6ed864b13578ce5bf175310b92351128110ef4bc;hpb=163a15d8bb9c2ab3951120f0724f2dd81000cc8d;p=spider.git 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();