use slabs to allocate save state space in regmatch()

p4raw-id: //depot/perl@27679

1 files changed, 6 insertions, 0 deletions

diff --git a/perl.c b/perl.c
index 15fc64b0ac..8af44cc4aa 100644
--- a/perl.c
+++ b/perl.c
@@ -1257,6 +1257,12 @@ perl_destruct(pTHXx)
 
     sv_free_arenas();
 
+    while (PL_regmatch_slab) {
+	regmatch_slab  *s = PL_regmatch_slab;
+	PL_regmatch_slab = PL_regmatch_slab->next;
+	Safefree(s);
+    }
+
     /* As the absolutely last thing, free the non-arena SV for mess() */
 
     if (PL_mess_sv) {