See the section on %SIG in perlvar for some discussion.{ my $realdie = \&CORE::GLOBAL::die; local *CORE::GLOBAL::die = sub { $realdie->(@_) if $something; print LOG @_ }; ## do_stuff }
In reply to Re: DIE handling ... carp!
by educated_foo
in thread DIE handling ... carp!
by rootcho
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |