1 files changed, 3 insertions, 2 deletions
diff --git a/op.c b/op.c
index 21aa23d942..6823cc991e 100644
--- a/op.c
+++ b/op.c
@@ -495,8 +495,6 @@ Perl_op_free(pTHX_ OP *o)
 	    op_free(kid);
 	}
     }
-    if (type == OP_NULL)
-	type = (OPCODE)o->op_targ;
 
 #ifdef PERL_DEBUG_READONLY_OPS
     Slab_to_rw(o);
@@ -508,6 +506,9 @@ Perl_op_free(pTHX_ OP *o)
 	cop_free((COP*)o);
     }
 
+    if (type == OP_NULL)
+	type = (OPCODE)o->op_targ;
+
     op_clear(o);
     if (o->op_latefree) {
 	o->op_latefreed = 1;