summaryrefslogtreecommitdiff
path: root/regexec.c
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2012-11-13 12:44:16 -0800
committerFather Chrysostomos <sprout@cpan.org>2012-11-13 14:54:21 -0800
commite1ff3a882ff0ab24ec23467b3cd86bf1a249d61a (patch)
tree93dac2f630075476e42ccbcb7d512f1b8ce238d0 /regexec.c
parent7f87a4de1805b005b66302addfebbc9749b7a1d9 (diff)
downloadperl-e1ff3a882ff0ab24ec23467b3cd86bf1a249d61a.tar.gz
Stop /(??{})/ from leaking temporary regexps
Diffstat (limited to 'regexec.c')
-rw-r--r--regexec.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/regexec.c b/regexec.c
index 49406417c3..72e2d7b049 100644
--- a/regexec.c
+++ b/regexec.c
@@ -4962,6 +4962,7 @@ S_regmatch(pTHX_ regmatch_info *reginfo, char *startpos, regnode *prog)
* compiled */
S_regcp_restore(aTHX_ rex, runops_cp);
}
+ SAVEFREESV(re_sv);
re = ReANY(re_sv);
}
RXp_MATCH_COPIED_off(re);