diff options
| author | Robin Houston <robin@cpan.org> | 2001-03-19 15:48:41 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-03-19 21:48:07 +0000 |
| commit | 63b28e3fb8a9bdc37688605dd41a007f3b1c0ea7 (patch) | |
| tree | b87599d4aafecfb5f4a81ecd7442f465771f157a | |
| parent | 379959cb189b56041970bc7b67fcefa11e368a69 (diff) | |
| download | perl-63b28e3fb8a9bdc37688605dd41a007f3b1c0ea7.tar.gz | |
PATCH: cosmetic tweak in pp_ctl.c
Message-ID: <20010319154841.A28174@puffinry.freeserve.co.uk>
p4raw-id: //depot/perl@9253
| -rw-r--r-- | pp_ctl.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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) { |