From @demerphq

The following two one liners should output the same thing, in
particular they should both output the same thing as the second piece
of code.

This potentially could screw up code that is trying to do "ScopeExit"
type behavior. I find it particularly confusing and wrong that the
first example does not print out two "destroying lines".

$ perl -le'sub DestroyNow​::DESTROY { print "destroying $_[0] in
${^GLOBAL_PHASE}" } sub foo { my $x= bless sub {}, "DestroyNow"; undef
$x; return undef;} foo(); foo(); print "All done\n" '
All done

destroying DestroyNow=CODE(0x8bc6f8) in DESTRUCT

$ perl -le'sub DestroyNow​::DESTROY { print "destroying $_[0] in
${^GLOBAL_PHASE}" } sub foo { my $y= shift; my $x= bless sub {$y},
"DestroyNow"; undef $x; return undef;} foo(); foo(); print "All
done\n" '
destroying DestroyNow=CODE(0xf83218) in RUN
destroying DestroyNow=CODE(0xf83218) in RUN
All done

The tested Perl was 5.18.4, but I have replicated this behavior on
perl 5.24 as well. (Haven't checked blead yet.)

This is perl 5, version 18, subversion 4 (v5.18.4) built for x86_64-linux
(with 1 registered patch, see perl -V for more detail)

Copyright 1987-2013, Larry Wall

Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 5 source kit.

Complete documentation for Perl, including FAQ lists, should be found on
this system using "man perl" or "perldoc perl". If you have access to the
Internet, point your browser at http​://www.perl.org/, the Perl Home Page.

--
perl -Mre=debug -e "/just|another|perl|hacker/"

From @tonycoz

On Sun, 08 Sep 2019 22​:44​:58 -0700, demerphq wrote​:

The following two one liners should output the same thing, in
particular they should both output the same thing as the second piece
of code.

This potentially could screw up code that is trying to do "ScopeExit"
type behavior. I find it particularly confusing and wrong that the
first example does not print out two "destroying lines".

$ perl -le'sub DestroyNow​::DESTROY { print "destroying $_[0] in
${^GLOBAL_PHASE}" } sub foo { my $x= bless sub {}, "DestroyNow"; undef
$x; return undef;} foo(); foo(); print "All done\n" '
All done

destroying DestroyNow=CODE(0x8bc6f8) in DESTRUCT

$ perl -le'sub DestroyNow​::DESTROY { print "destroying $_[0] in
${^GLOBAL_PHASE}" } sub foo { my $y= shift; my $x= bless sub {$y},
"DestroyNow"; undef $x; return undef;} foo(); foo(); print "All
done\n" '
destroying DestroyNow=CODE(0xf83218) in RUN
destroying DestroyNow=CODE(0xf83218) in RUN
All done

Didn't you already report this in https://rt-archive.perl.org/perl5/Ticket/Display.html?id=134313 ?

Tony

The RT System itself - Status changed from 'new' to 'open'