change#1614 merely disabled earlier fix (doh!); undo it and properly

fixup the cop_seq value that must be seen by lexical lookups that
emanate within eval''

p4raw-link: @1614 on //depot/perl: bd28dd3ca083953e5682058b02b9529902e14ca9

p4raw-id: //depot/perl@1944

1 files changed, 17 insertions, 0 deletions

diff --git a/t/op/eval.t b/t/op/eval.t
index efa189e2a3..5a9c1981b9 100755
--- a/t/op/eval.t
+++ b/t/op/eval.t
@@ -100,3 +100,20 @@ do_eval('eval q[print "ok $x\n"]');
 $x++;
 do_eval('sub { eval q[print "ok $x\n"] }->()');
 $x++;
+
+# can recursive subroutine-call inside eval'' see its own lexicals?
+sub recurse {
+  my $l = shift;
+  if ($l < $x) {
+     ++$l;
+     eval 'print "# level $l\n"; recurse($l);';
+     die if $@;
+  }
+  else {
+    print "ok $l\n";
+  }
+}
+{
+  local $SIG{__WARN__} = sub { die "not ok $x\n" if $_[0] =~ /^Deep recurs/ };
+  recurse($x-5);
+}