From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 2 Apr 2007 21:27:26 +0000 (+0000)
Subject: We may not even have a list of slabs when Perl_Slab_Free is called.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=782a40f1181978d9bfe62418afdc2b6bc3857309;p=p5sagit%2Fp5-mst-13.2.git

We may not even have a list of slabs when Perl_Slab_Free is called.

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

diff --git a/op.c b/op.c
index 47901c1..1f9cb8f 100644
--- a/op.c
+++ b/op.c
@@ -235,10 +235,9 @@ Perl_Slab_Free(pTHX_ void *op)
 #  endif
 	
 #ifdef PERL_DEBUG_READONLY_OPS
+	U32 count = PL_slab_count;
 	/* Need to remove this slab from our list of slabs */
-	{
-	    U32 count = PL_slab_count;
-
+	if (count) {
 	    while (count--) {
 		if (PL_slabs[count] == slab) {
 		    /* Found it. Move the entry at the end to overwrite it.  */