From: Vincent Pit <perl@profvince.com>
Date: Sat, 4 Nov 2017 16:21:41 +0000 (+0100)
Subject: Fix t/35-stash.t failures starting with 5.27.5
X-Git-Tag: rt123314^0
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=960ba5758e007ff977089a354aacaf3d99c5a17f;p=perl%2Fmodules%2FVariable-Magic.git

Fix t/35-stash.t failures starting with 5.27.5

Typeglob reification may cause a store in 5.28+.
Thanks Father Chrysostomos for contributing a patch.

This fixes [RT #123314].
---

diff --git a/t/35-stash.t b/t/35-stash.t
index 5ec42fd..a9600bc 100644
--- a/t/35-stash.t
+++ b/t/35-stash.t
@@ -114,9 +114,12 @@ cast %Hlagh::, $wiz;
  eval q{ Hlagh->shoot() };
 
  is $@, '', 'stash: valid method call ran fine';
- is_deeply \%mg, {
-  fetch => [ qw<shoot> ],
- }, 'stash: valid method call';
+ my %expected = ( fetch => [ qw<shoot> ] );
+ # Typeglob reification may cause a store in 5.28+
+ if ("$]" >= 5.027 && %mg == 2) {
+  $expected{store} = $expected{fetch};
+ }
+ is_deeply \%mg, \%expected, 'stash: valid method call';
 }
 
 {