Bug #112547 for Sig-PackageScoped: t/02-paranoid.t fails with perl 5.23.8

Sun Feb 28 16:31:44 2016 SREZIC [...] cpan.org - Ticket created

Subject:

t/02-paranoid.t fails with perl 5.23.8

I see the following failure --- only with perl 5.23.8; 5.23.7 and older pass. # Failed test '$@ should be 'Foo: bar'' # at t/02-paranoid.t line 46. # got: 'Foo2: bar' # expected: 'Foo: bar' # Failed test '$@ should be 'bar'' # at t/02-paranoid.t line 55. # got: 'Foo2: Foo: bar' # expected: 'bar' # Failed test '$@ should be 'bar'' # at t/02-paranoid.t line 83. # got: 'Foo2: Foo: bar' # expected: 'bar' # Looks like you failed 3 tests of 9. t/02-paranoid.t ... Dubious, test returned 3 (wstat 768, 0x300) Failed 3/9 subtests @Andreas: maybe a bisect candidate?

Thu Mar 03 08:07:00 2016 davem [...] iabyn.com - Correspondence added

From:

davem [...] iabyn.com

This is because from 5.223.8 onwards,destructors etc called during scope exit see, using caller(), the last statement of the exiting block, rather than the first as before. e.g. this: sub DESTROY { print join(',', caller), "\n" } { my $x = bless []; package Bar; my $y; } my $z; gives $ perl5237 p; perl5238 p main,p,3 Bar,p,5 I don't know whether Paranoid.pm is fixable.

Thu Mar 03 08:07:01 2016 The RT System itself - Status changed from 'new' to 'open'

Thu Mar 03 09:53:15 2016 DROLSKY [...] cpan.org - Correspondence added

On Thu Mar 03 08:07:00 2016, davem@iabyn.com wrote: Show quoted text

> This is because from 5.223.8 onwards,destructors etc called during > scope > exit see, using caller(), the last statement of the exiting block, > rather than the first as before. e.g. this: > > sub DESTROY { print join(',', caller), "\n" } > { > my $x = bless []; > package Bar; > my $y; > } > my $z; > > gives > > $ perl5237 p; perl5238 p > main,p,3 > Bar,p,5 > > I don't know whether Paranoid.pm is fixable.

This module isn't worth fixing. I just wrote it as an experiment. I've never used it in actual code, nor would I recommend it to anyone else. If it breaks with 5.24, then I'll upload a new version to CPAN that notes that in the docs.