extra code in pp_concat, Take 2

[p5sagit/p5-mst-13.2.git] / op.c

diff --git a/op.c b/op.c
index a226aad..8264232 100644 (file)
--- a/op.c
+++ b/op.c
@@ -313,6 +313,10 @@ Perl_op_free(pTHX_ OP *o)
 
     op_clear(o);
     FreeOp(o);
+#ifdef DEBUG_LEAKING_SCALARS
+    if (PL_op == o)
+       PL_op = Nullop;
+#endif
 }
 
 void