From: Vincent Pit <vince@profvince.com>
Date: Mon, 5 Nov 2012 01:36:33 +0000 (-0200)
Subject: Make t/35-stash.t pass with perl 5.17.4 and above
X-Git-Tag: rt80388~1
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=d28712f92da321bedadbf8b4eb9c27fcd4205ab8;p=perl%2Fmodules%2FVariable-Magic.git

Make t/35-stash.t pass with perl 5.17.4 and above

Since this version, delete on a stash does no longer calls 'store' uvar
magic twice.
---

diff --git a/t/35-stash.t b/t/35-stash.t
index 2403483..2dd9f44 100644
--- a/t/35-stash.t
+++ b/t/35-stash.t
@@ -215,8 +215,9 @@ cast %Hlagh::, $wiz;
 {
  local %mg;
 
- my @expected_stores = map { ($_) x 2 } qw<nevermentioned eat shoot>;
- push @expected_stores, 'nevermentioned' if "$]" < 5.017_001;
+ my @expected_stores = qw<nevermentioned eat shoot>;
+ @expected_stores    = map { ($_) x 2 } @expected_stores if "$]" < 5.017_004;
+ push @expected_stores, 'nevermentioned'                 if "$]" < 5.017_001;
 
  eval q{
   package Hlagh;