Hello all,
I want to catch SIGSEGV signal, do some processing and after that want to
call default SIGSEGV handler.
I was not getting how to call default SIGSEGV handler. Following code
snippet is the work around I'm using.
Let me know if anything wrong in this code or your thaughts on this.
local $SIG{SEGV} = \&seg_handler;
our $sig=0;
sub seg_handler
{
my $sig = shift;
print "seg_handler :: Caught $sig \n";
$SIG{$sig} ='DEFAULT';
print "Sending $sig signale to proc $$\n";
kill $sig,$$;
}
until ($sig) {
print "running...\n";
sleep 1;
}
_____
From: Rajnikant [mailto:[EMAIL PROTECTED]
Sent: Tuesday, July 08, 2008 1:15 PM
To: 'Perl Beginners'
Subject: Signal Handlers
Hello Gurus,
I'm using following code snipet to catch SIGSEV signal.
local $SIG{SEGV} = \&seg_handler;
sub seg_handler
{
my $sig = shift;
print "seg_handler :: Caught $sig \n";
}
while (1)
{
print ("Still alive \n");
sleep 1;
}
When I send SEGV signal to this process (kill -11 proc_id) from command
promt, I'm able to catch this signal.
I need to call default SEGV signal handler after my processing.
How should I code for this?
Thanks in advance.
DISCLAIMER
==========
This e-mail may contain privileged and confidential information which is the
property of Persistent Systems Ltd. It is intended only for the use of the
individual or entity to which it is addressed. If you are not the intended
recipient, you are not authorized to read, retain, copy, print, distribute or
use this message. If you have received this communication in error, please
notify the sender and delete all copies of this message. Persistent Systems
Ltd. does not accept any liability for virus infected mails.
