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

[perl/modules/Variable-Magic.git] / t / 35-stash.t

diff --git a/t/35-stash.t b/t/35-stash.t
index 24034832064399cb33c740a61f691dac3f4e061f..2dd9f44d8de1140239f6728648ff9ee2d05abd5a 100644 (file)
--- 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;