summaryrefslogtreecommitdiff
path: root/perly.c
diff options
context:
space:
mode:
authorDave Mitchell <davem@fdisolutions.com>2007-01-04 01:03:22 +0000
committerDave Mitchell <davem@fdisolutions.com>2007-01-04 01:03:22 +0000
commit7d84b8ac5458b36428c44a53c4148b3abea83f2d (patch)
tree9bbb97ee35c15a7fd970519f5f68ac0be78fbdae /perly.c
parent73d95100627fbb8760df38c23d7563a42cc2b6f6 (diff)
downloadperl-7d84b8ac5458b36428c44a53c4148b3abea83f2d.tar.gz
make parser_free actually free the parser!
also remove two SAVEs left over from #29655 p4raw-id: //depot/perl@29680
Diffstat (limited to 'perly.c')
-rw-r--r--perly.c3
1 files changed, 3 insertions, 0 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