diff options
-rw-r--r-- | perly.c | 3 | ||||
-rw-r--r-- | toke.c | 2 |
2 files changed, 3 insertions, 2 deletions
@@ -302,7 +302,10 @@ Perl_parser_free(pTHX_ const yy_parser *parser) { S_clear_yystack(aTHX_ parser); Safefree(parser->stack); + Safefree(parser->lex_brackstack); + Safefree(parser->lex_casestack); PL_parser = parser->old_parser; + Safefree(parser); } #endif @@ -643,8 +643,6 @@ Perl_lex_start(pTHX_ SV *line) /* initialise lexer state */ - SAVEI32(PL_lex_brackets); - SAVEI32(PL_lex_casemods); SAVEI32(PL_lex_state); #ifdef PERL_MAD if (PL_lex_state == LEX_KNOWNEXT) { |