X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F34-glob.t;h=bbfbeeedff7ffb4de870d1910e7006857a4b6598;hb=2d69d033c7c2942a94751972e9f482de7c3482be;hp=a6f26375ba343bf662b426bb0a19cd7f75c85b29;hpb=442d92f66e46ee6b39285eec14de33419f2854c9;p=perl%2Fmodules%2FVariable-Magic.git

diff --git a/t/34-glob.t b/t/34-glob.t
index a6f2637..bbfbeee 100644
--- 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';