]> git.vpit.fr Git - perl/modules/Variable-Magic.git/commitdiff
Make t/35-stash.t pass on 5.21.4
authorVincent Pit <vince@profvince.com>
Mon, 1 Sep 2014 12:09:07 +0000 (14:09 +0200)
committerVincent Pit <vince@profvince.com>
Mon, 1 Sep 2014 12:09:07 +0000 (14:09 +0200)
t/35-stash.t

index 2dd9f44d8de1140239f6728648ff9ee2d05abd5a..9d094ea57d3e2cbbcc3096e89d97675160c2b19c 100644 (file)
@@ -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';
 }