Kinda kludgy, but you could print to STDERR and use POSIX::_exit to bail immediately rather than using die.
Update: Yes, the point of POSIX::_exit was that it works all the way back to 5.005_03.
$ /usr/bin/perl5.00503 -MPOSIX=_exit -e 'BEGIN { print STDERR "Floobl +e!\n"; _exit( 1 ); } print "zorch\n"' Flooble! $
In reply to Re: BEGIN and die(), an ugly combination
by Fletch
in thread BEGIN and die(), an ugly combination
by samtregar
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |