From: Vincent Pit 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 ], - }, 'stash: valid method call'; + my %expected = ( fetch => [ qw ] ); + # 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'; } {