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.

Replies are listed 'Best First'.
Re^2: Throw from within a DESTROY block
by ikegami (Patriarch) 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.
[reply]
[d/l]
[select]
      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)
[reply]
Re^2: Throw from within a DESTROY block
by ribasushi (Pilgrim) 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.
[reply]

      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.

      [download]
[reply]
[d/l]
        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

[reply]

In Section Seekers of Perl Wisdom