From: Gurusamy Sarathy <gsar@cpan.org>
Date: Tue, 21 Jul 1998 19:43:32 +0000 (+0000)
Subject: fix off-by-one in change#623 that broke lexical lookups in eval''
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bd28dd3ca083953e5682058b02b9529902e14ca9;p=p5sagit%2Fp5-mst-13.2.git

fix off-by-one in change#623 that broke lexical lookups in eval''

p4raw-link: @623 on //depot/maint-5.004/perl: e811c00b2f4acecfa354c70062bc82a1157cebc4

p4raw-id: //depot/perl@1614
---

diff --git a/pp_ctl.c b/pp_ctl.c
index 33aaea9..8d4b7f7 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2322,7 +2322,7 @@ doeval(int gimme, OP** startop)
     SAVEI32(PL_max_intro_pending);
 
     caller = PL_compcv;
-    for (i = cxstack_ix - 1; i >= 0; i--) {
+    for (i = cxstack_ix; i >= 0; i--) {
 	PERL_CONTEXT *cx = &cxstack[i];
 	if (cx->cx_type == CXt_EVAL)
 	    break;