diff options
| author | David Mitchell <davem@iabyn.com> | 2015-12-25 22:03:10 +0000 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2016-02-03 09:19:17 +0000 |
| commit | d77cab044d85b109271a8fd3f99e99ac1392a029 (patch) | |
| tree | 5bd72bd08c366316584b529f0ff43bc57cb8d774 /regexec.c | |
| parent | d9203e036f608afd529c54a69f854a528171f784 (diff) | |
| download | perl-d77cab044d85b109271a8fd3f99e99ac1392a029.tar.gz | |
MULTICALL should clear scope after each call
RT #116577
Lexicals etc were only being freed at the end of the MULTICALL, not
after each individual call to the sub.
Diffstat (limited to 'regexec.c')
| -rw-r--r-- | regexec.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -6664,6 +6664,7 @@ S_regmatch(pTHX_ regmatch_info *reginfo, char *startpos, regnode *prog) before = (IV)(SP-PL_stack_base); PL_op = nop; CALLRUNOPS(aTHX); /* Scalar context. */ + PERL_UNUSED_VAR(saveix_floor); /* used by MULTICALL */ SPAGAIN; if ((IV)(SP-PL_stack_base) == before) ret = &PL_sv_undef; /* protect against empty (?{}) blocks. */ |