Perl: Log4Perl call log4perl in case of unhandled error

Question

Is there a way in log4Perl that I can force my programs to log fatal even outside an eval clause? I want to achieve to call log4perl also in case of any unhandled program termination. Prefereably I would like to add the related error handler inside my standard module which is loaded with all my Perl programs.
The Perl version is currently 5.8, but I am upgrading soon.
This the test code for the given answer. I see neither a DIE on the screen nor that die.txt is created.

 use Log::Log4perl qw(get_logger);
$a->test();
$SIG{__DIE__} = sub {
 warn "DIE";
 open DIE,">die.txt";
 print DIE "died\n";
 close DIE;
};

Use surrounding backticks to “mask” underlines in the comments (turn them into the code where no formatting is allowed). // Reply to a comment to a deleted question. — ZyX
– ZyX, Commented Oct 10, 2012 at 19:01
Your problem is that $SIG{__DIE__} has not been set yet at the point your error occurs. Just set $SIG{__DIE__} first, then it will work. — dan1111
– dan1111, Commented Oct 15, 2012 at 11:51

so not liopa · Accepted Answer · 2012-10-11 10:22:47Z

4

+100

Looks like the FAQ How can I make sure my application logs a message when it dies unexpectedly?

use Log::Log4perl qw(get_logger);

$SIG{__DIE__} = sub {
    if($^S) {
        # We're in an eval {} and don't want log
        # this message but catch it later
        return;
    }
    local $Log::Log4perl::caller_depth =
          $Log::Log4perl::caller_depth + 1;
    my $logger = get_logger("");
    $logger->fatal(@_);
    die @_; # Now terminate really
};

See perlipc for more

answered Oct 11, 2012 at 10:22

so not liopa

4752 silver badges5 bronze badges

Sign up to request clarification or add additional context in comments.

4 Comments

weismat Over a year ago

This helps in case die gets called, but not when there is an unhandled exception - e.g. calling a method on an undef value.

so not liopa Over a year ago

How do you figure? Here is demo of it working perl -e " $SIG{__DIE__} = sub { warn join q/ /, 666, @_ }; $foo->what; "

weismat Over a year ago

I have written a small program and just called print, warn and also just tried to create/write to an error file.

dan1111 Over a year ago

@weismat, this looks like a good answer. If it doesn't meet your needs, I suggest updating your question with a code example that shows a case when this won't work.

Collectives™ on Stack Overflow

Perl: Log4Perl call log4perl in case of unhandled error

1 Answer 1

4 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

4 Comments

Your Answer

Sign up or log in

Post as a guest

Related