Call cop_free on nullified cops too

(this is a followup to 33687)

p4raw-id: //depot/perl@33695

1 files changed, 4 insertions, 1 deletions

diff --git a/op.c b/op.c
index 6823cc991e..ba9e2a5a9f 100644
--- a/op.c
+++ b/op.c
@@ -502,7 +502,10 @@ Perl_op_free(pTHX_ OP *o)
 
     /* COP* is not cleared by op_clear() so that we may track line
      * numbers etc even after null() */
-    if (type == OP_NEXTSTATE || type == OP_DBSTATE) {
+    if (type == OP_NEXTSTATE || type == OP_DBSTATE
+	    || (type == OP_NULL /* the COP might have been null'ed */
+		&& ((OPCODE)o->op_targ == OP_NEXTSTATE
+		    || (OPCODE)o->op_targ == OP_DBSTATE))) {
 	cop_free((COP*)o);
     }