make parser_free actually free the parser!

also remove two SAVEs left over from #29655

p4raw-id: //depot/perl@29680

diff --git a/perly.c b/perly.c
index 8ce76ab..112930e 100644 (file)
--- 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 19b117b..1dd7bcf 100644 (file)
--- 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) {