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 /toke.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 'toke.c')
| -rw-r--r-- | toke.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -6360,9 +6360,9 @@ yywarn(char *s) { dTHR; --PL_error_count; - PL_in_eval |= 2; + PL_in_eval |= EVAL_WARNONLY; yyerror(s); - PL_in_eval &= ~2; + PL_in_eval &= ~EVAL_WARNONLY; return 0; } @@ -6425,7 +6425,7 @@ yyerror(char *s) (int)PL_multi_open,(int)PL_multi_close,(long)PL_multi_start); PL_multi_end = 0; } - if (PL_in_eval & 2) + if (PL_in_eval & EVAL_WARNONLY) warn("%_", msg); else if (PL_in_eval) sv_catsv(ERRSV, msg); |