diff options
| author | Yves Orton <demerphq@gmail.com> | 2006-10-26 14:34:43 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-10-26 11:02:15 +0000 |
| commit | ae0beba11d18ba5a4fa40f476873ab82ee11127b (patch) | |
| tree | 5279d1c92ba55f55ecdd6c0b3ebb9dfda27c1bbf /regexec.c | |
| parent | 3bc7ad013c5af9b18752b1f48eaa9d005dcc16c0 (diff) | |
| download | perl-ae0beba11d18ba5a4fa40f476873ab82ee11127b.tar.gz | |
Fix a memory leak :
Subject: Re: Valgrind findings
Message-ID: <9b18b3110610260334t6b77c2dbu2ca8207d822402da@mail.gmail.com>
p4raw-id: //depot/perl@29111
Diffstat (limited to 'regexec.c')
| -rw-r--r-- | regexec.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -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; |