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 (file)
--- 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;