PATCH: cosmetic tweak in pp_ctl.c

Message-ID: <20010319154841.A28174@puffinry.freeserve.co.uk>

p4raw-id: //depot/perl@9253

diff --git a/pp_ctl.c b/pp_ctl.c
index f08f8bf..90c6a3c 100644 (file)
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2229,7 +2229,7 @@ PP(pp_goto)
            if (cxix < cxstack_ix)
                dounwind(cxix);
            TOPBLOCK(cx);
-           if (CxTYPE(cx) == CXt_EVAL && cx->blk_eval.old_op_type == OP_ENTEREVAL)
+           if (CxREALEVAL(cx))
                DIE(aTHX_ "Can't goto subroutine from an eval-string");
            mark = PL_stack_sp;
            if (CxTYPE(cx) == CXt_SUB && cx->blk_sub.hasargs) {