Fix two errors in the OP debugging code. Now all test errors relate

to newCONSTSUB().

p4raw-id: //depot/perl@30936

1 files changed, 4 insertions, 0 deletions

diff --git a/sv.c b/sv.c
index 5d84cb316c..4ce70719dd 100644
--- a/sv.c
+++ b/sv.c
@@ -10932,6 +10932,10 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
 	HINTS_REFCNT_UNLOCK;
     }
     PL_curcop		= (COP*)any_dup(proto_perl->Tcurcop, proto_perl);
+#ifdef PERL_DEBUG_READONLY_OPS
+    PL_slabs = NULL;
+    PL_slab_count = 0;
+#endif
 
     /* pseudo environmental stuff */
     PL_origargc		= proto_perl->Iorigargc;