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

p4raw-id: //depot/perl@30835

1 files changed, 2 insertions, 3 deletions

diff --git a/op.c b/op.c
index 47901c188a..1f9cb8f94f 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.  */