Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

Re: Throw from within a DESTROY block

by ikegami (Pope)
on Sep 07, 2011 at 00:03 UTC ( #924489=note: print w/ replies, xml ) Need Help??


in reply to Throw from within a DESTROY block

Move the die out of the destructor or invoke the destructor explicitly.

Note that the corruption of $@ has been fixed in 5.14. It's now blank in the last statement.


Comment on Re: Throw from within a DESTROY block
Select or Download Code
Re^2: Throw from within a DESTROY block
by ikegami (Pope) on Sep 07, 2011 at 00:11 UTC
    I was going to mention the possibility of using a $SIG{__DIE__} that calls exit, but it doesn't work. The signal is triggered before the object is destroyed, so a second attempt to destroy the object occurs during global destruction.
      This can be trivially fixed by closing over an $already_fired flag of some sort to neutralize the DESTROY for a specific object. However I am not interested in an exit() - I want a real trappable exception that will happen during runtime calls to DESTROY (I am not interested in the global destruction case, and can always work around it)
Re^2: Throw from within a DESTROY block
by ribasushi (Monk) on Sep 07, 2011 at 02:01 UTC
    If I move the die() out of the DESTROY, this becomes a non-question don't you think? :) The whole point is to figure out why perl thinks we are cleaning up (even though we are in the middle of runtime), and how to convince it otherwise.

      If I move the die() out of the DESTROY, this becomes a non-question don't you think?

      If you don't, then your question is a non-question. ("How do you make Perl not act like Perl?")

      The whole point is to figure out why perl thinks we are cleaning up (even though we are in the middle of runtime),

      It is cleaning up an object, and you're wrong in thinking Perl think it's in the global destruction phase.

      $ perl -wE' DESTROY { die "foo" } { bless({}) } ' (in cleanup) foo at -e line 2. $ perl -wE' DESTROY { die "foo" } our $o = bless({}); ' (in cleanup) foo at -e line 2 during global destruction.
        Sigh. Given how I explicitly ask "how do I cheat perl here", a non-incendiary answer would be
        I am not sure you can do this,
        not
        <THOUGHTCRIME>perl is not designed to do that, turn around ang go back where you came from!</THOUGHTCRIME>

        Thanks for the reply annyway

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (7)
As of 2014-10-02 08:45 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    What is your favourite meta-syntactic variable name?














    Results (52 votes), past polls