BEGIN { # Override with itself so it can be overridden at run-time later. *CORE::GLOBAL::exit = sub { CORE::exit @_; } } { my $exit_code; no warnings 'redefine'; local *CORE::GLOBAL::exit = sub { $exit_code = shift; goto EXIT; }; # ...do code which calls abort handler... EXIT: $CGI::Fast::Ext_Request->Finish(); }
In reply to Re: goto in CORE::GLOBAL::exit - is it safe?
by SFLEX
in thread goto in CORE::GLOBAL::exit - is it safe?
by powerman
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |