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

[perl/modules/Variable-Magic.git] / t / 34-glob.t

diff --git a/t/34-glob.t b/t/34-glob.t
index a6f26375ba343bf662b426bb0a19cd7f75c85b29..b5c8394fd86d3e43b483c5631a0fd45d08faf718 100644 (file)
--- 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';