trapping signals

opensourcer has asked for the wisdom of the Perl Monks concerning the following question:

hi, im trying to trap signals. but i don't want the program to quit. i want it to stay alive.

package Server;

use Guard;

sub new {
         my ($caller, %args) = @_;
         my $this = $caller || ref($caller)
         die;
         return bless[], $this;
}

1;
[download]

now Guard

package Guard;

$SIG{__DIE__} = \&diewatcher;
$SIG{'QUIT'} = \&diewatcher;
sub diewatcher 

{
    $SIG{__DIE__} = 'DEFAULT';
    
    print "Na na u can't that \n";
    
}

1;
[download]

k, the above code does the work, but it does not stay alive.

Comment on trapping signals Select or Download Code

Replies are listed 'Best First'.
Re: trapping signals by Joost (Canon) on Nov 23, 2006 at 16:43 UTC
That's not what sig{DIE} handlers are for - you should only use them to do cleanup. use block eval for catching normal exceptions. "What should it profit a man, if he should win a flame war, yet lose his cool?"	[reply]
Re: trapping signals by geekphilosopher (Friar) on Nov 24, 2006 at 00:27 UTC
Quoth the Camel: When a __DIE__ hook routine returns, exception processing continues as it would have in the absence of the hook, unless the hook routine itself exits via goto, a loop exit, or a die. So, the die will still terminate your program. What are you trying to do with this? Quoth the Larry again: Do not attempt to build an exception-handling mechanism on this feature. Use eval {} to trap exceptions instead.	[reply]