develooper Front page | perl.perl5.porters | Postings from March 2001

PATCH: cosmetic tweak in pp_ctl.c

From:
Robin Houston
Date:
March 19, 2001 07:48
Subject:
PATCH: cosmetic tweak in pp_ctl.c
Message ID:
20010319154841.A28174@puffinry.freeserve.co.uk
This is a minor cosmetic tweak to a patch I wrote ages ago.
Either the CxREALEVAL macro didn't exist back then, or I
just failed to notice it.

Not a big deal, but worth applying I think.

 .robin.

--- perl@9172/pp_ctl.c  Wed Mar 14 04:46:31 2001
+++ perl-robin/pp_ctl.c Mon Mar 19 15:26:32 2001
@@ -2223,7 +2223,7 @@
            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) {



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About