SEGV Handling , srcipt does not exit after SEGV handling

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

I am using the following code snippet

#!/usr/local/perl/bin/perl -w 
$| = 1;
push @$x, abc();

sub abc {
$x = 1;
}
[download]

The above code causes segmentation fault. To hand the segmentation fault i added a signal handle below.The code is shown below

#!/usr/local/perl/bin/perl -w 
$| = 1;

push @$x, abc();

sub abc {
$x = 1;
}

$SIG{'SEGV'} = '_my_sig_handler';

sub _my_sig_handler{
print "here";
exit(1);
}
[download]

The script is able to catch the SEGV signal , but the script doest not exit. I did a truss on the process and think it goes in a infinite loop.

Could you help here ??

Comment on SEGV Handling , srcipt does not exit after SEGV handling Select or Download Code

Replies are listed 'Best First'.
Re: SEGV Handling , srcipt does not exit after SEGV handling by dave_the_m (Monsignor) on Jul 08, 2009 at 12:25 UTC
Once the perl interpreter has SEGV'd, it's in a corrupt and inconsistent state. Attempting to execute Perl code at that point (e.g. in a SEGV signal handler) is just likely to lead to more SEGVs, which may be why you're seeing it go into an infinite loop. Dave.	[reply]
Re^2: SEGV Handling , srcipt does not exit after SEGV handling by Anonymous Monk on Jul 08, 2009 at 12:28 UTC
Yeah i think this is the case, as the truss output shows segment faults recurring, but the thing is i want to capture the stack trace when this segmentation fault occurs.	[reply]
Re^3: SEGV Handling , srcipt does not exit after SEGV handling by dave_the_m (Monsignor) on Jul 08, 2009 at 12:47 UTC
If you want a C-level stack trace, then run perl under gdb or similar. Dave.	[reply]
Re^4: SEGV Handling , srcipt does not exit after SEGV handling by Anonymous Monk on Jul 08, 2009 at 13:37 UTC
Re: SEGV Handling , srcipt does not exit after SEGV handling by Anonymous Monk on Jul 08, 2009 at 13:26 UTC
#66930: segmentation fault modifying array ref during push	[reply]
Re: SEGV Handling , srcipt does not exit after SEGV handling by Anonymous Monk on Jul 08, 2009 at 11:40 UTC
Which perl version? Copy/paste the output of `perl -V` command into `<code></code>` tags.	[reply] [d/l] [select]
Re^2: SEGV Handling , srcipt does not exit after SEGV handling by Anonymous Monk on Jul 08, 2009 at 12:00 UTC
`perl -v This is perl, v5.8.6 built for i86pc-solaris` [download]	[reply] [d/l]
Re^3: SEGV Handling , srcipt does not exit after SEGV handling by jethro (Monsignor) on Jul 08, 2009 at 12:28 UTC
Your script is not segfaulting on "perl, v5.8.5 built for sun4-solaris"	[reply]
Re^3: SEGV Handling , srcipt does not exit after SEGV handling by Anonymous Monk on Jul 08, 2009 at 12:33 UTC
I said `perl -V`, capital V	[reply] [d/l]