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

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

diff --git a/t/op/mydef.t b/t/op/mydef.t
index 444bf4a..e034c78 100644 (file)
--- a/t/op/mydef.t
+++ b/t/op/mydef.t
@@ -6,7 +6,7 @@ BEGIN {
     require './test.pl';
 }
 
-print "1..70\n";
+print "1..72\n";
 
 my $test = 0;
 sub ok ($@) {
@@ -198,3 +198,21 @@ my $file = tempfile();
     ::ok( $_ ne 'fqdb', 'unqualified $_ is in main' );
     ::ok( q/$_/ ne 'fqdb', 'unqualified, evaled $_ is in main' );
 }
+
+{
+    $clank_est::qunckkk = 3;
+    our $qunckkk;
+    $qunckkk = 4;
+    package clank_est;
+    our $qunckkk;
+    ::ok($qunckkk == 3, 'regular variables are not forced to main');
+}
+
+{
+    $whack::_ = 3;
+    our $_;
+    $_ = 4;
+    package whack;
+    our $_;
+    ::ok($_ == 4, '$_ is "special", and always forced to main');
+}