Object instantiated/assigned inside of do { } block does not have DESTROY method called if assignment is the only action in the block #16676

p5pRT · 2018-08-31T16:23:50Z

Migrated from rt.perl.org#133489 (status was 'open')

Searchable as RT133489$

p5pRT · 2018-08-31T16:23:50Z

From @cpanelrikus

If you have a do block in which the only action is declaring a lexical
variable and assigning it an instantiated object,
the DESTROY method for that object is not called when the variable goes
out of scope at the end of the block:

(Note: The sleep is optional and just for reassurance that there's not
some small race condition, and the kill is to ensure
that no additional destruction happens, which would hide the problem.)

[a@remote]~% ~/perl5/perlbrew/build/perl-5.28.0/perl-5.28.0/perl -e 'do
{ my $obj = Obj->new(); }; sleep 2; kill "KILL", $$; package Obj; sub
new { return bless {}, __PACKAGE__; } DESTROY { print "destroy called\n" }'
zsh: killed    ~/perl5/perlbrew/build/perl-5.28.0/perl-5.28.0/perl -e
[a@remote]~%

However, putting anything at the beginning or the end of the block will
change this behavior:

[a@remote]~% ~/perl5/perlbrew/build/perl-5.28.0/perl-5.28.0/perl -e 'do
{ 1; my $obj = Obj->new(); }; sleep 2; kill "KILL", $$; package Obj; sub
new { return bless {}, __PACKAGE__; } DESTROY { print "destroy called\n" }'
destroy called
zsh: killed    ~/perl5/perlbrew/build/perl-5.28.0/perl-5.28.0/perl -e
[a@remote]~% ~/perl5/perlbrew/build/perl-5.28.0/perl-5.28.0/perl -e 'do
{ my $obj = Obj->new(); 1; }; sleep 2; kill "KILL", $$; package Obj; sub
new { return bless {}, __PACKAGE__; } DESTROY { print "destroy called\n" }'
destroy called
zsh: killed    ~/perl5/perlbrew/build/perl-5.28.0/perl-5.28.0/perl -e
[a@remote]~%

This type of "loop" block is unaffected:

[a@remote]~% ~/perl5/perlbrew/build/perl-5.28.0/perl-5.28.0/perl -e '{
my $obj = Obj->new(); }; sleep 2; kill "KILL", $$; package Obj; sub new
{ return bless {}, __PACKAGE__; } DESTROY { print "destroy called\n" }'
destroy called
zsh: killed    ~/perl5/perlbrew/build/perl-5.28.0/perl-5.28.0/perl -e
[a@remote]~%

The impact of this seems minimal, and I'm not completely sure this is a
bug at all, but without more knowledge of how do { } works, it's
unexpected, at least. The inconsistent behavior depending on whether the
assignment is the only thing in the block or not is also strange.

Replicated on:

blead:
  This is perl 5, version 29, subversion 3 (v5.29.3
(v5.29.2-39-g1284d2c34d)) built for x86_64-linux
  (with 1 registered patch, see perl -V for more detail)

stable:
  This is perl 5, version 28, subversion 0 (v5.28.0) built for x86_64-linux
  (with 1 registered patch, see perl -V for more detail)

cPanel perl:
  This is perl 5, version 26, subversion 0 (v5.26.0) built for
x86_64-linux-64int
  (with 47 registered patches, see perl -V for more detail)

Mac OS X perl:
  This is perl 5, version 18, subversion 2 (v5.18.2) built for
darwin-thread-multi-2level
  (with 2 registered patches, see perl -V for more detail)

CentOS 7 perl:
  This is perl 5, version 16, subversion 3 (v5.16.3) built for
x86_64-linux-thread-multi
  (with 33 registered patches, see perl -V for more detail)

Perl Info


Flags:
     category=core
     severity=low

Site configuration information for perl 5.28.0:

Configured by root at Fri Aug 31 09:45:50 CDT 2018.

Summary of my perl5 (revision 5 version 28 subversion 0) configuration:

   Platform:
     osname=linux
     osvers=3.10.0-862.11.6.el7.x86_64
     archname=x86_64-linux
     uname='linux remote.remote.remote 3.10.0-862.11.6.el7.x86_64 #1 smp 
tue aug 14 21:49:04 utc 2018 x86_64 x86_64 x86_64 gnulinux '
     config_args='-de -Dprefix=/home/a/perl5/perlbrew/perls/perl-5.28.0 
-Aeval:scriptdir=/home/a/perl5/perlbrew/perls/perl-5.28.0/bin'
     hint=recommended
     useposix=true
     d_sigaction=define
     useithreads=undef
     usemultiplicity=undef
     use64bitint=define
     use64bitall=define
     uselongdouble=undef
     usemymalloc=n
     default_inc_excludes_dot=define
     bincompat5005=undef
   Compiler:
     cc='cc'
     ccflags ='-fwrapv -fno-strict-aliasing -pipe 
-fstack-protector-strong -I/usr/local/include -D_LARGEFILE_SOURCE 
-D_FILE_OFFSET_BITS=64 -D_FORTIFY_SOURCE=2'
     optimize='-O2'
     cppflags='-fwrapv -fno-strict-aliasing -pipe 
-fstack-protector-strong -I/usr/local/include'
     ccversion=''
     gccversion='4.8.5 20150623 (Red Hat 4.8.5-28)'
     gccosandvers=''
     intsize=4
     longsize=8
     ptrsize=8
     doublesize=8
     byteorder=12345678
     doublekind=3
     d_longlong=define
     longlongsize=8
     d_longdbl=define
     longdblsize=16
     longdblkind=3
     ivtype='long'
     ivsize=8
     nvtype='double'
     nvsize=8
     Off_t='off_t'
     lseeksize=8
     alignbytes=8
     prototype=define
   Linker and Libraries:
     ld='cc'
     ldflags =' -fstack-protector-strong -L/usr/local/lib'
     libpth=/usr/local/lib /usr/lib /lib/../lib64 /usr/lib/../lib64 /lib 
/lib64 /usr/lib64 /usr/local/lib64
     libs=-lpthread -lnsl -lgdbm -ldb -ldl -lm -lcrypt -lutil -lc 
-lgdbm_compat
     perllibs=-lpthread -lnsl -ldl -lm -lcrypt -lutil -lc
     libc=libc-2.17.so
     so=so
     useshrplib=false
     libperl=libperl.a
     gnulibc_version='2.17'
   Dynamic Linking:
     dlsrc=dl_dlopen.xs
     dlext=so
     d_dlsymun=undef
     ccdlflags='-Wl,-E'
     cccdlflags='-fPIC'
     lddlflags='-shared -O2 -L/usr/local/lib -fstack-protector-strong'

Locally applied patches:
     Devel::PatchPerl 1.52


@INC for perl 5.28.0:
/home/a/perl5/perlbrew/perls/perl-5.28.0/lib/site_perl/5.28.0/x86_64-linux
     /home/a/perl5/perlbrew/perls/perl-5.28.0/lib/site_perl/5.28.0
/home/a/perl5/perlbrew/perls/perl-5.28.0/lib/5.28.0/x86_64-linux
     /home/a/perl5/perlbrew/perls/perl-5.28.0/lib/5.28.0


Environment for perl 5.28.0:
     HOME=/home/a
     LANG=en_US.UTF-8
     LANGUAGE (unset)
     LD_LIBRARY_PATH (unset)
     LOGDIR (unset)
PATH=/usr/local/cpanel/3rdparty/lib/path-bin:/usr/local/bin:/bin:/usr/bin:/home/a/bin:/usr/local/sbin:/usr/sbin:/opt/cpanel/composer/bin
     PERL_BADLANG (unset)
     SHELL=/bin/zsh

p5pRT · 2018-09-03T16:30:48Z

From @jkeenan

Behavior confirmed on perl-5.28.0. For the benefit of others who wish to confirm, I'm attaching the 4 variants.

Thank you very much.

--
James E Keenan (jkeenan@cpan.org)

p5pRT · 2018-09-03T16:30:48Z

From @jkeenan

Simply inserting a 1; makes this work as expected.

#!/usr/bin/env perl
use strict;
use warnings;

do { 1; my $obj = Obj->new(); };
sleep 2;
kill "KILL", $$;

package Obj;
sub new { return bless {}, __PACKAGE__; }
DESTROY { print "destroy called\n" }

p5pRT · 2018-09-03T16:30:48Z

From @jkeenan

with a second line, do{} works as expected.

#!/usr/bin/env perl
use strict;
use warnings;

do { my $obj = Obj->new(); 1; };
sleep 2;
kill "KILL", $$;

package Obj;
sub new { return bless {}, __PACKAGE__; }
DESTROY { print "destroy called\n" }

p5pRT · 2018-09-03T16:30:48Z

From @jkeenan

Without do this works as expected.

#!/usr/bin/env perl
use strict;
use warnings;

{ my $obj = Obj->new(); };
sleep 2;
kill "KILL", $$;

package Obj;
sub new { return bless {}, __PACKAGE__; }
DESTROY { print "destroy called\n" }

p5pRT · 2018-09-03T16:30:48Z

From @jkeenan

This code never displays "destroy called"

#!/usr/bin/env perl
use strict;
use warnings;

do { my $obj = Obj->new(); };
sleep 2;
kill "KILL", $$;

package Obj;
sub new { return bless {}, __PACKAGE__; }
DESTROY { print "destroy called\n" }

p5pRT · 2018-09-03T16:30:48Z

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

toddr · 2020-02-17T23:18:14Z

perl-all seems to indicate this has been broken back to at least 5.6.0

p5pRT added Severity Low type-core labels Oct 19, 2019

toddr added this to Monitoring in toddr Feb 17, 2020

xenu removed the affects-5.28 label Nov 19, 2021

xenu removed the Severity Low label Dec 29, 2021

Provide feedback

Saved searches

Use saved searches to filter your results more quickly

Object instantiated/assigned inside of do { } block does not have DESTROY method called if assignment is the only action in the block #16676

Object instantiated/assigned inside of do { } block does not have DESTROY method called if assignment is the only action in the block #16676

p5pRT commented Aug 31, 2018

p5pRT commented Aug 31, 2018 •

edited by toddr

p5pRT commented Sep 3, 2018 •

edited by toddr

p5pRT commented Sep 3, 2018 •

edited by toddr

p5pRT commented Sep 3, 2018 •

edited by toddr

p5pRT commented Sep 3, 2018 •

edited by toddr

p5pRT commented Sep 3, 2018 •

edited by toddr

p5pRT commented Sep 3, 2018

toddr commented Feb 17, 2020

Object instantiated/assigned inside of do { } block does not have DESTROY method called if assignment is the only action in the block #16676

Object instantiated/assigned inside of do { } block does not have DESTROY method called if assignment is the only action in the block #16676

Comments

p5pRT commented Aug 31, 2018

p5pRT commented Aug 31, 2018 • edited by toddr

From @cpanelrikus

p5pRT commented Sep 3, 2018 • edited by toddr

From @jkeenan

p5pRT commented Sep 3, 2018 • edited by toddr

From @jkeenan

p5pRT commented Sep 3, 2018 • edited by toddr

From @jkeenan

p5pRT commented Sep 3, 2018 • edited by toddr

From @jkeenan

p5pRT commented Sep 3, 2018 • edited by toddr

From @jkeenan

p5pRT commented Sep 3, 2018

toddr commented Feb 17, 2020

p5pRT commented Aug 31, 2018 •

edited by toddr

p5pRT commented Sep 3, 2018 •

edited by toddr

p5pRT commented Sep 3, 2018 •

edited by toddr

p5pRT commented Sep 3, 2018 •

edited by toddr

p5pRT commented Sep 3, 2018 •

edited by toddr

p5pRT commented Sep 3, 2018 •

edited by toddr