warn handler Frage (gelöst) - #176070 (Allgemeines zu Perl)

Kuerbis

2014-06-16 07:54

User since
2011-03-20
943 Artikel
BenutzerIn
[default_avatar]

Hallo, würde hier trotz dass vorher ein die steht der alte "warn-handler" wieder hergestellt werden?

Code (perl): (dl )

my $old_warn_handler = $SIG{__WARN__};
$SIG{__WARN__} = sub {
    die @_;
    $old_warn_handler->(@_) if $old_warn_handler;
};