diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2007-05-21 22:35:15 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2007-05-21 22:35:15 +0000 |
| commit | 13765c85de4dc05031cfb5d6273ea7e178b9807b (patch) | |
| tree | 9b7456f3898d45002e885cca29df8a06680246f6 /perl.c | |
| parent | 670a9cb260d5f37076650f3eb5aa6c305796b0f7 (diff) | |
| download | perl-13765c85de4dc05031cfb5d6273ea7e178b9807b.tar.gz | |
move PL_error_count into the PL_parser struct
p4raw-id: //depot/perl@31255
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 5 |
1 files changed, 2 insertions, 3 deletions
@@ -2267,9 +2267,8 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit) /* now parse the script */ SETERRNO(0,SS_NORMAL); - PL_error_count = 0; #ifdef MACOS_TRADITIONAL - if (gMacPerl_SyntaxError = (yyparse() || PL_error_count)) { + if (gMacPerl_SyntaxError = (yyparse() || PL_parser->error_count)) { if (PL_minus_c) Perl_croak(aTHX_ "%s had compilation errors.\n", MacPerl_MPWFileName(PL_origfilename)); else { @@ -2278,7 +2277,7 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit) } } #else - if (yyparse() || PL_error_count) { + if (yyparse() || PL_parser->error_count) { if (PL_minus_c) Perl_croak(aTHX_ "%s had compilation errors.\n", PL_origfilename); else { |