X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F35-stash.t;h=9d094ea57d3e2cbbcc3096e89d97675160c2b19c;hb=31d52b17;hp=24034832064399cb33c740a61f691dac3f4e061f;hpb=78d307d30a1fa82e6b8e7ba95c617d9b87eb4d45;p=perl%2Fmodules%2FVariable-Magic.git

diff --git a/t/35-stash.t b/t/35-stash.t
index 2403483..9d094ea 100644
--- a/t/35-stash.t
+++ b/t/35-stash.t
@@ -92,11 +92,22 @@ 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) {
+  @fetch = @calls;
+  @store = map { ($_) x 2 } @calls;
+ } else {
+  @fetch = map { ($_) x 2 } @calls;
+  @store = @calls;
+ }
 
  is $@, "ok\n", 'stash: function calls compiled fine';
  is_deeply \%mg, {
-  fetch => \@calls,
-  store => ("$]" < 5.011_002 ? \@calls : [ map { ($_) x 2 } @calls ]),
+  fetch => \@fetch,
+  store => \@store,
  }, 'stash: function calls';
 }
 
@@ -215,8 +226,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;