summaryrefslogtreecommitdiff
path: root/pp_ctl.c
diff options
context:
space:
mode:
authorHugo van der Sanden <hv@crypt.org>1999-05-23 17:35:07 +0100
committerGurusamy Sarathy <gsar@cpan.org>1999-05-24 05:46:20 +0000
commitfaef01704ba77a858827d4e793b056731d6e6832 (patch)
tree291268218f13ed645fa5df363050cd6c4cf6e2da /pp_ctl.c
parentd49321e7b7c3f90e1fb44f947dddd8517579dd60 (diff)
downloadperl-faef01704ba77a858827d4e793b056731d6e6832.tar.gz
name PL_in_eval bits
Message-Id: <199905231535.QAA00032@crypt.compulink.co.uk> p4raw-id: //depot/perl@3457
Diffstat (limited to 'pp_ctl.c')
-rw-r--r--pp_ctl.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/pp_ctl.c b/pp_ctl.c
index 19bfb2183c..3d27aa5146 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -1335,7 +1335,7 @@ die_where(char *message, STRLEN msglen)
SV **newsp;
if (message) {
- if (PL_in_eval & 4) {
+ if (PL_in_eval & EVAL_KEEPERR) {
SV **svp;
svp = hv_fetch(ERRHV, message, msglen, TRUE);
@@ -2612,7 +2612,7 @@ doeval(int gimme, OP** startop)
AV* comppadlist;
I32 i;
- PL_in_eval = 1;
+ PL_in_eval = EVAL_INEVAL;
PUSHMARK(SP);
@@ -2691,7 +2691,7 @@ doeval(int gimme, OP** startop)
SvREFCNT_dec(PL_rs);
PL_rs = newSVpvn("\n", 1);
if (saveop && saveop->op_flags & OPf_SPECIAL)
- PL_in_eval |= 4;
+ PL_in_eval |= EVAL_KEEPERR;
else
sv_setpv(ERRSV,"");
if (yyparse() || PL_error_count || !PL_eval_root) {
@@ -3145,7 +3145,7 @@ PP(pp_entertry)
PUSHEVAL(cx, 0, 0);
PL_eval_root = PL_op; /* Only needed so that goto works right. */
- PL_in_eval = 1;
+ PL_in_eval = EVAL_INEVAL;
sv_setpv(ERRSV,"");
PUTBACK;
return DOCATCH(PL_op->op_next);