[prev in list] [next in list] [prev in thread] [next in thread] 

List:       perl5-changes
Subject:    [perl.git]  branch smoke-me/nicholas/RT54044, updated. v5.17.10-49-gcffb726
From:       "Nicholas Clark" <nick () ccl4 ! org>
Date:       2013-04-10 11:46:29
Message-ID: E1UPtTx-0000WG-3n () camel ! ams6 ! corp ! booking ! com
[Download RAW message or body]

In perl.git, the branch smoke-me/nicholas/RT54044 has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/cffb726fc69b7e9513c76a479db79979ff833be3?hp=657d1e609c0896b75625a0275d2b5c978675cb04>


- Log -----------------------------------------------------------------
commit cffb726fc69b7e9513c76a479db79979ff833be3
Author: Nicholas Clark <nick@ccl4.org>
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


[prev in list] [next in list] [prev in thread] [next in thread]