do FILE should not see outside lexicals (from Rick Delaney

<rick@consumercontact.com>)

p4raw-id: //depot/perl@5620

1 files changed, 2 insertions, 1 deletions

diff --git a/op.c b/op.c
index bc07904755..689fc18aba 100644
--- a/op.c
+++ b/op.c
@@ -356,8 +356,9 @@ S_pad_findlex(pTHX_ char *name, PADOFFSET newoff, U32 seq, CV* startcv,
 		if (CxREALEVAL(cx))
 		    saweval = i;
 		break;
+	    case OP_DOFILE:
 	    case OP_REQUIRE:
-		/* require must have its own scope */
+		/* require/do must have their own scope */
 		return 0;
 	    }
 	    break;