From: Robin Houston <robin@cpan.org>
Date: Mon, 19 Mar 2001 15:48:41 +0000 (+0000)
Subject: PATCH: cosmetic tweak in pp_ctl.c
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=63b28e3fb8a9bdc37688605dd41a007f3b1c0ea7;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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) {