Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
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?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (6)
As of 2014-09-22 05:29 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (180 votes), past polls