From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 25 Mar 2006 11:35:33 +0000 (+0000)
Subject: Free the regexp state when exiting "recursion".
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=82255c491411c620d44ef2a0c55ba08f63a23a86;p=p5sagit%2Fp5-mst-13.2.git

Free the regexp state when exiting "recursion".

p4raw-id: //depot/perl@27600
---

diff --git a/regexec.c b/regexec.c
index 79254eb..523f1a2 100644
--- a/regexec.c
+++ b/regexec.c
@@ -4605,6 +4605,7 @@ exit_level:
 	accepted = p->accepted;
 	PL_reg_call_cc = p->reg_call_cc;
 	prev_state = p->prev_state;
+	Safefree(p);
 
 	switch (resume_state) {
 	case resume_TRIE1: