Update magical flags after dispelling magic

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

diff --git a/t/34-glob.t b/t/34-glob.t
index a6f26375ba343bf662b426bb0a19cd7f75c85b29..bbfbeeedff7ffb4de870d1910e7006857a4b6598 100644 (file)
--- a/t/34-glob.t
+++ b/t/34-glob.t
@@ -10,7 +10,7 @@ if ($@) {
  plan skip_all => "Symbol::gensym required for testing magic for globs";
 } else {
  plan tests => 2 * 12 + 1;
- diag "Using Symbol $Symbol::VERSION" if defined $Symbol::VERSION;
+ defined and diag "Using Symbol $_" for $Symbol::VERSION;
 }
 
 use Variable::Magic qw/cast dispell VMG_COMPAT_GLOB_GET/;
@@ -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';