diff options
| author | Hugo van der Sanden <hv@crypt.org> | 1999-05-23 17:35:07 +0100 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-24 05:46:20 +0000 |
| commit | faef01704ba77a858827d4e793b056731d6e6832 (patch) | |
| tree | 291268218f13ed645fa5df363050cd6c4cf6e2da /perl.c | |
| parent | d49321e7b7c3f90e1fb44f947dddd8517579dd60 (diff) | |
| download | perl-faef01704ba77a858827d4e793b056731d6e6832.tar.gz | |
name PL_in_eval bits
Message-Id: <199905231535.QAA00032@crypt.compulink.co.uk>
p4raw-id: //depot/perl@3457
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1315,9 +1315,9 @@ perl_call_sv(SV *sv, I32 flags) 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; if (flags & G_KEEPERR) - PL_in_eval |= 4; + PL_in_eval |= EVAL_KEEPERR; else sv_setpv(ERRSV,""); } |