summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--perly.c3
-rw-r--r--toke.c2
2 files changed, 3 insertions, 2 deletions
diff --git a/perly.c b/perly.c
index 8ce76abf7a..112930e5c3 100644
--- a/perly.c
+++ b/perly.c
@@ -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
diff --git a/toke.c b/toke.c
index 19b117b0fb..1dd7bcf229 100644
--- a/toke.c
+++ b/toke.c
@@ -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) {