In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/fdf38e49aa470e60cb56fdd7a3a49f85da8ea2ce?hp=aee674b7db1a4a3fd0082f4247560d3c945d0f5c>
- Log ----------------------------------------------------------------- commit fdf38e49aa470e60cb56fdd7a3a49f85da8ea2ce Author: Nicholas Clark <[email protected]> Date: Wed Apr 10 13:44:07 2013 +0200 Refactor 3 tests so that they avoid clearing %:: via list assignment. For all 3, clearing %:: was intended to expose another bug, not to directly test the effects of clearing %:: Tested by building the 3 revisions that added the tests, and confirming that the revised test also triggers the bug that each fixed. ----------------------------------------------------------------------- Summary of changes: t/op/stash.t | 9 +++++---- 1 files changed, 5 insertions(+), 4 deletions(-) diff --git a/t/op/stash.t b/t/op/stash.t index fd5450e..2681d47 100644 --- a/t/op/stash.t +++ b/t/op/stash.t @@ -11,7 +11,7 @@ plan( tests => 58 ); # Used to segfault (bug #15479) fresh_perl_like( - '%:: = ""', + 'delete $::{STDERR}; my %a = ""', qr/Odd number of elements in hash assignment at - line 1\./, { switches => [ '-w' ] }, 'delete $::{STDERR} and print a warning', @@ -59,14 +59,15 @@ package main; { local $ENV{PERL_DESTRUCT_LEVEL} = 2; fresh_perl_is( - 'package A; sub a { // }; %::=""', + 'package A::B; sub a { // }; %A::=""', '', '', ); # Variant of the above which creates an object that persists until global - # destruction. + # destruction, and triggers an assertion failure prior to change + # a420522db95b7762 fresh_perl_is( - 'use Exporter; package A; sub a { // }; %::=""', + 'use Exporter; package A; sub a { // }; delete $::{$_} for keys %::', '', '', ); -- Perl5 Master Repository
