Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

RE: END failed--call queue aborted

by Adam (Vicar)
on Oct 20, 2000 at 20:26 UTC ( #37706=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    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.
    
  2. or download this
    #!perl -w
    use strict;
    ...
    END{ ++$counter; print "$counter: End called.\n"; fail() }
    $SIG{__DIE__} = sub{ ++$counter; print "$counter: SigDie called.\n"; f
    +ail() }; 
    fail()
    
  3. or download this
    1: Fail called.
    2: SigDie called.
    ...
    8: SigDie called.
    9: Fail called.
    DEATH 4
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://37706]
help
Chatterbox?
[LanX]: ♪ ♫ ♬ ... rain in the cloths ... ♪ ♫ ♬

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (11)
As of 2017-07-25 09:48 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I came, I saw, I ...
























    Results (369 votes). Check out past polls.