Make defined %hash on a non-lexical (also) generate a deprecated warning.

[p5sagit/p5-mst-13.2.git] / t / op / gv.t

diff --git a/t/op/gv.t b/t/op/gv.t
index e04c2ca..1b705ef 100644 (file)
--- a/t/op/gv.t
+++ b/t/op/gv.t
@@ -167,7 +167,10 @@ is (*{*x{GLOB}}, "*main::STDOUT");
     ok(!defined @{$a});
     ok(!defined *{$a});
 
-    ok(!defined %{$a});
+    {
+       no warnings 'deprecated';
+       ok(!defined %{$a});
+    }
     ok(!defined *{$a});
 
     ok(!defined ${$a});