From ae0beba11d18ba5a4fa40f476873ab82ee11127b Mon Sep 17 00:00:00 2001 From: Yves Orton Date: Thu, 26 Oct 2006 14:34:43 +0200 Subject: [PATCH] Fix a memory leak : Subject: Re: Valgrind findings Message-ID: <9b18b3110610260334t6b77c2dbu2ca8207d822402da@mail.gmail.com> p4raw-id: //depot/perl@29111 --- regexec.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/regexec.c b/regexec.c index c4d88cc..60ec4ff 100644 --- a/regexec.c +++ b/regexec.c @@ -3523,7 +3523,7 @@ S_regmatch(pTHX_ const regmatch_info *reginfo, regnode *prog) Newx(PL_reg_start_tmp, PL_reg_start_tmpl, char*); } - eval_recurse_doit: /* Share code with RECURSE below this line */ + eval_recurse_doit: /* Share code with RECURSE below this line */ /* run the pattern returned from (??{...}) */ ST.cp = regcppush(0); /* Save *all* the positions. */ REGCP_SET(ST.lastcp); @@ -3534,6 +3534,7 @@ S_regmatch(pTHX_ const regmatch_info *reginfo, regnode *prog) *PL_reglastparen = 0; *PL_reglastcloseparen = 0; PL_reginput = locinput; + PL_regsize = 0; /* XXXX This is too dramatic a measure... */ PL_reg_maxiter = 0; -- 2.7.4