Tags: perl5 Ähnliche Threads
1 2 3 4 5
my $old_warn_handler = $SIG{__WARN__}; $SIG{__WARN__} = sub { die @_; $old_warn_handler->(@_) if $old_warn_handler; };
local $SIG{__WARN__} = sub { die $@ };