Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

Re: warn/die hook mystery

by broquaint (Abbot)
on Apr 16, 2002 at 15:02 UTC ( #159513=note: print w/replies, xml ) Need Help??


in reply to warn/die hook mystery

According to the docs $^S may be set inside the die() handler even if you're not inside an eval. So that's why it appears that $SIG{__DIE__} has been reset. If you put a print statement before the die() you'll see that $^S is set within the $SIG{__DIE__} handler.
# slightly revised die() handler sub die_handler { # added this line print "\$^S is set to $^S", $/; die @_ if $^S; print "ERROR: $_[0]\n (Check logs for more info)\n-----\n\n"; exit(1); } __output__ Warn before init! at die_code.pl line 3. WARNING: Warned at die_code.pl line 7. (Check logs for more info) ----- $^S is set to 1 Caught: died inside eval! $^S is set to 1 Died for real! at die_code.pl line 28.

HTH

broquaint

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://159513]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (3)
As of 2020-02-16 20:13 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    What numbers are you going to focus on primarily in 2020?










    Results (70 votes). Check out past polls.

    Notices?