$SIG{__DIE__} = sub { cluck shift; }
[download]

This looks nicer. It's got a winking open-mouthed smiley and a bug-eyed tongue-sticking-out smiley.

$SIG{__DIE__} = sub { cluck shift  ;-0  } or 8-P
;
[download]

In this code, I just have a __WARN__ handler, but I would presume that __DIE__ would be possible also. Of course $x has to be in scope for the $SIG handler!

Anyway, installing a __DIE__ handler in the sub() might be easier and even better than a stack trace - although that could be done in the handler also. In this code, I just want to know which of 1M DB records caused the Warning - its not fatal for this code, but it is something I have to find and fix later. Just an idea....

sub x
{
    my ($x) = @_;    # $x is an array ref to a DB record

    local $SIG{__WARN__} = 
    sub 
    {
        my $msg = shift;
        print STDERR "*******\n";
        print STDERR $msg; 
        print STDERR "current DB record:  id=", $x->[ID]; 
    };
      
    # some stuff that might cause a Warning....
    # some operations on the record pointed to by $x
    # maybe "abc123" is not numeric, etc.
    
    return $result;
}
[download]

Thanks, I suppose I'll try the signal approach. (I'm obviously not dying on purpose, but Perl is dying for me.) Was looking at Carp::Always's source code earlier, and that's what it uses.