This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Terser fix to avoid warning about an empty body for Slab_to_rw().
[perl5.git] / op.c
diff --git a/op.c b/op.c
index fc0306a..84d38cd 100644 (file)
--- a/op.c
+++ b/op.c
@@ -311,7 +311,7 @@ Perl_Slab_to_rw(pTHX_ OPSLAB *const slab)
 }
 
 #else
-#  define Slab_to_rw(op)
+#  define Slab_to_rw(op)    NOOP
 #endif
 
 /* This cannot possibly be right, but it was copied from the old slab
@@ -741,9 +741,8 @@ Perl_op_free(pTHX_ OP *o)
     if (type == OP_NULL)
        type = (OPCODE)o->op_targ;
 
-    if (o->op_slabbed) {
-       Slab_to_rw(OpSLAB(o));
-    }
+    if (o->op_slabbed)
+        Slab_to_rw(OpSLAB(o));
 
     /* COP* is not cleared by op_clear() so that we may track line
      * numbers etc even after null() */