From: Dave Mitchell <davem@fdisolutions.com>
Date: Thu, 4 Jan 2007 01:03:22 +0000 (+0000)
Subject: make parser_free actually free the parser!
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7d84b8ac5458b36428c44a53c4148b3abea83f2d;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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) {