Add a test that "eval" does not create additional reference to ouside variables.

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

diff --git a/t/op/undef.t b/t/op/undef.t
index 7afaf9c..ff45c2a 100644 (file)
--- a/t/op/undef.t
+++ b/t/op/undef.t
@@ -10,7 +10,7 @@ use strict;
 
 use vars qw(@ary %ary %hash);
 
-plan 37;
+plan 40;
 
 ok !defined($a);
 
@@ -45,15 +45,27 @@ undef $ary{'foo'};
 ok !defined($ary{'foo'});
 
 ok defined(@ary);
-ok defined(%ary);
+{
+    no warnings 'deprecated';
+    ok defined(%ary);
+}
+ok %ary;
 undef @ary;
 ok !defined(@ary);
 undef %ary;
-ok !defined(%ary);
+{
+    no warnings 'deprecated';
+    ok !defined(%ary);
+}
+ok !%ary;
 @ary = (1);
 ok defined @ary;
 %ary = (1,1);
-ok defined %ary;
+{
+    no warnings 'deprecated';
+    ok defined %ary;
+}
+ok %ary;
 
 sub foo { pass; 1 }