Help for this page

Select Code to Download

Select or download this

$SIG{__DIE__}  = \&log_die;

sub log_die {
 print @_;
}

Select or download this

sub log_die {
    return unless CRITICAL >= $PRIORITY;
    _log(_msg('critical',@_));
    die @_;
}