In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/0e38ac7805aa91d94a5718273a06c051670207ca?hp=3d97da50423e4922873a8598cab029e60a40bfad>
- Log -----------------------------------------------------------------
commit 0e38ac7805aa91d94a5718273a06c051670207ca
Author: Gerard Goossen <ger...@ggoossen.net>
Date: Fri Dec 18 18:41:00 2009 +0100
When discarding a token free the op associated with it
When discarding a token free the op associated with it.
Fixes memory leak in comp/parser.t
Gerard Goossen
From 7694ec023ec8856f34964b5eeea58f1b588c89bc Mon Sep 17 00:00:00 2001
From: Gerard Goossen <ger...@ggoossen.net>
Date: Fri, 18 Dec 2009 18:32:11 +0100
Subject: [PATCH 4/4] When discarding a token free the op associated with it.
Status: O
Content-Length: 438
Lines: 20
Fixes memory leak in comp/parser.t
Signed-off-by: H.Merijn Brand <h.m.br...@xs4all.nl>
-----------------------------------------------------------------------
Summary of changes:
perly.c | 2 ++
1 files changed, 2 insertions(+), 0 deletions(-)
diff --git a/perly.c b/perly.c
index 0709307..3624ca3 100644
--- a/perly.c
+++ b/perly.c
@@ -614,6 +614,8 @@ Perl_yyparse (pTHX)
}
YYDSYMPRINTF ("Error: discarding", yytoken, &parser->yylval);
+ if (yy_type_tab[yytoken] == toketype_opval)
+ op_free(parser->yylval.opval);
parser->yychar = YYEMPTY;
}
--
Perl5 Master Repository
