]> git.vpit.fr Git - perl/modules/Variable-Magic.git/commitdiff
A bare glob that isn't part of a fetch doesn't call get magic anymore in 5.13.7
authorVincent Pit <vince@profvince.com>
Sun, 21 Nov 2010 13:43:04 +0000 (14:43 +0100)
committerVincent Pit <vince@profvince.com>
Sun, 21 Nov 2010 13:43:04 +0000 (14:43 +0100)
t/34-glob.t

index a6f26375ba343bf662b426bb0a19cd7f75c85b29..b5c8394fd86d3e43b483c5631a0fd45d08faf718 100644 (file)
@@ -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';