diff options
Diffstat (limited to 'Keyword.xs')
-rw-r--r-- | Keyword.xs | 9 |
1 files changed, 7 insertions, 2 deletions
@@ -23,16 +23,21 @@ static SV *parser_fn(OP *(fn)(pTHX_ U32), bool named) { I32 floor; CV *code; + U8 errors; REENTER_PARSER; + SAVEI8(PL_parser->error_count); + PL_parser->error_count = 0; floor = start_subparse(0, named ? 0 : CVf_ANON); code = newATTRSUB(floor, NULL, NULL, NULL, fn(aTHX_ 0)); + errors = PL_parser->error_count; + LEAVE_PARSER; - if (PL_parser->error_count) { - return newSV(0); + if (errors) { + croak_sv(ERRSV); } else { if (CvCLONE(code)) { |