undo #27700 and add a missing Safefree()

p4raw-id: //depot/perl@27702

1 files changed, 3 insertions, 1 deletions

diff --git a/regexec.c b/regexec.c
index 1d334b3e49..bbec763bb0 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);
 	}
     }