Free the regexp state when exiting "recursion".

p4raw-id: //depot/perl@27600

diff --git a/regexec.c b/regexec.c
index 79254eb..523f1a2 100644 (file)
--- 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: