From: Dave Mitchell <davem@fdisolutions.com>
Date: Mon, 3 Apr 2006 09:56:29 +0000 (+0000)
Subject: undo #27700 and add a missing Safefree()
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ad65c0754dcb913eeecdd57abf05d41b6889161b;p=p5sagit%2Fp5-mst-13.2.git

undo #27700 and add a missing Safefree()

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

diff --git a/regexec.c b/regexec.c
index 1d334b3..bbec763 100644
--- a/regexec.c
+++ b/regexec.c
@@ -4556,10 +4556,12 @@ exit_level:
 
     /* free all slabs above current one */
     if (orig_slab->next) {
-	regmatch_slab *sl = orig_slab->next;
+	regmatch_slab *osl, *sl = orig_slab->next;
 	orig_slab->next = NULL;
 	while (sl) {
+	    osl = sl;
 	    sl = sl->next;
+	    Safefree(osl);
 	}
     }