Help for this page
perl -we "sub fail{die 'test'}; END{ print qq'\nF\n'; fail() }; $SIG{__DIE__} = sub{print qq!\nS\n!; fail()}; fail()" ... S test at -e line 1.
#!perl -w use strict; ... END{ ++$counter; print "$counter: End called.\n"; fail() } $SIG{__DIE__} = sub{ ++$counter; print "$counter: SigDie called.\n"; f +ail() }; fail()
1: Fail called. 2: SigDie called. ... 8: SigDie called. 9: Fail called. DEATH 4
www.com | www.net | www.org
No recent polls found