Try "CORE::exit". For example:
use strict; use warnings; use Tk; my $etriped = 'e' . 'x' . 'i' . 't'; print "1\n"; eval ("CORE::$etriped"); print "Error: $@\n"; print "2\n"; # Reached if "use Tk;" is present.
In reply to Re: How to hide exit and die
by golux
in thread How to hide exit and die
by mnooning
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |