From: Vincent Pit <vince@profvince.com>
Date: Mon, 22 Sep 2014 16:20:30 +0000 (+0200)
Subject: Really make t/35-stash.t pass on 5.21.4
X-Git-Tag: rt98525^0
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=3644707ff79f48c935403a704459f79a908c2121;p=perl%2Fmodules%2FVariable-Magic.git

Really make t/35-stash.t pass on 5.21.4

Looks like the core was changed between commit 31d52b17 and the release
of perl 5.21.4.
---

diff --git a/t/35-stash.t b/t/35-stash.t
index 9d094ea..5ec42fd 100644
--- a/t/35-stash.t
+++ b/t/35-stash.t
@@ -93,14 +93,11 @@ cast %Hlagh::, $wiz;
 
  my @calls = qw<eat shoot leave roam yawn roam>;
  my (@fetch, @store);
- if ("$]" < 5.011_002) {
-  @fetch = @calls;
-  @store = @calls;
- } elsif ("$]" < 5.021_004) {
+ if ("$]" >= 5.011_002 && "$]" < 5.021_004) {
   @fetch = @calls;
   @store = map { ($_) x 2 } @calls;
  } else {
-  @fetch = map { ($_) x 2 } @calls;
+  @fetch = @calls;
   @store = @calls;
  }
 
@@ -307,7 +304,7 @@ $_ => sub {
 CB
 } qw<fetch store exists delete>);
 
-my $uo_exp = "$]" < 5.011_002 ? 2 : 3;
+my $uo_exp = "$]" >= 5.011_002 && "$]" < 5.021_004 ? 3 : 2;
 
 $code .= ', data => sub { +{ guard => 0 } }';