$SIG{__DIE__} = sub {
    return if $^S; # ignore die in an eval block

    # Get the actual caller for the "die" and not the wrapper
    local $Log::Log4perl::caller_depth;
    $Log::Log4perl::caller_depth++;

    LOGDIE($_[0]);
};