diff -Nurp Variable-Magic-0.53/t/35-stash.t Variable-Magic-0.53-kzLVI9/t/35-stash.t
--- Variable-Magic-0.53/t/35-stash.t	2013-06-03 06:19:02.000000000 -0700
+++ Variable-Magic-0.53-kzLVI9/t/35-stash.t	2014-09-03 19:07:32.000000000 -0700
@@ -96,7 +96,9 @@ cast %Hlagh::, $wiz;
  is $@, "ok\n", 'stash: function calls compiled fine';
  is_deeply \%mg, {
   fetch => \@calls,
-  store => ("$]" < 5.011_002 ? \@calls : [ map { ($_) x 2 } @calls ]),
+  store => ("$]" < 5.011_002 || "$]" >= 5.021_004
+              ? \@calls
+              : [ map { ($_) x 2 } @calls ]),
  }, 'stash: function calls';
 }
 
@@ -296,7 +298,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 ? 2 : 3;
 
 $code .= ', data => sub { +{ guard => 0 } }';