From: Vincent Pit <vince@profvince.com>
Date: Sun, 21 Nov 2010 13:43:04 +0000 (+0100)
Subject: A bare glob that isn't part of a fetch doesn't call get magic anymore in 5.13.7
X-Git-Tag: v0.45~3
X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FVariable-Magic.git;a=commitdiff_plain;h=a4a7bc01ee056f5f8662ca67bd4aac767e100cb7

A bare glob that isn't part of a fetch doesn't call get magic anymore in 5.13.7
---

diff --git a/t/34-glob.t b/t/34-glob.t
index a6f2637..b5c8394 100644
--- a/t/34-glob.t
+++ b/t/34-glob.t
@@ -42,6 +42,8 @@ watch {
  watch { cast *b, $wiz } +{ }, 'cast 2';
 } +{ }, 'scope end';
 
+%get = () if $] >= 5.013007;
+
 watch { undef *a } +{ %get }, 'undef';
 
 watch { dispell *a, $wiz } +{ %get }, 'dispell';