This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix compiler warning about empty if body
[perl5.git] / op.c
diff --git a/op.c b/op.c
index cdfd7e4..9e176ad 100644 (file)
--- a/op.c
+++ b/op.c
@@ -709,8 +709,9 @@ Perl_op_free(pTHX_ OP *o)
     if (type == OP_NULL)
        type = (OPCODE)o->op_targ;
 
     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() */
 
     /* COP* is not cleared by op_clear() so that we may track line
      * numbers etc even after null() */