Perl: Log4Perl appel log4perl en cas d'erreur non gérée

Question

Existe-t-il un moyen dans log4Perl que je peux forcer mes programmes à se connecter fatale même en dehors d'une clause eval? Je veux parvenir à appeler log4perl également dans le cas de toute résiliation de programme non gérée. Préférentiellement, je voudrais ajouter le gestionnaire d'erreurs associé dans mon module standard qui est chargé avec tous mes programmes Perl.
La version Perl est actuellement de 5,8, mais je vais bientôt la mettre à niveau.
Ceci est le code de test pour la réponse donnée. Je ne vois ni un DIE sur l'écran ni que die.txt est créé.

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

Answer 1

On dirait la 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 
}; 

Voir perlipc pour plus