in reply to How to explicitly destroy an object so that all other references to it would become false?

Or you could add a layer of indirection. 

my $x = bless {}, "XXX";
my $y = \$x;
undef $x;
if (! $$y) {
  print "hurrah!\n";
}

[download]
  • Comment on Re: How to explicitly destroy an object so that all other references to it would become false?
  • Download Code

In Section Seekers of Perl Wisdom