fix longstanding bug: searches for lexicals originating within eval''

weren't stopping at the subroutine boundary correctly

p4raw-id: //depot/perl@3037

1 files changed, 12 insertions, 1 deletions

diff --git a/t/op/eval.t b/t/op/eval.t
index 498c63aaf3..5822797a6c 100755
--- a/t/op/eval.t
+++ b/t/op/eval.t
@@ -1,6 +1,6 @@
 #!./perl
 
-print "1..29\n";
+print "1..30\n";
 
 eval 'print "ok 1\n";';
 
@@ -129,3 +129,14 @@ eval <<'EOT';
   }
 EOT
 create_closure("ok $x\n")->();
+$x++;
+
+# does lexical search terminate correctly at subroutine boundary?
+$main::r = "ok $x\n";
+sub terminal { eval 'print $r' }
+{
+   my $r = "not ok $x\n";
+   eval 'terminal($r)';
+}
+$x++;
+