in reply to How to hide exit and die

Hi mnooning,

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.
say  substr+lc crypt(qw $i3 SI$),4,5

Replies are listed 'Best First'.
Re^2: How to hide exit and die
by Anonymous Monk on Jan 14, 2015 at 19:14 UTC
    It works! Thanks.