This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix compiler warning
authorJesse Luehrs <doy@tozt.net>
Fri, 29 Jun 2012 16:23:59 +0000 (11:23 -0500)
committerJesse Luehrs <doy@tozt.net>
Fri, 29 Jun 2012 16:24:51 +0000 (11:24 -0500)
op.c

diff --git a/op.c b/op.c
index 5de86a1..2281ddf 100644 (file)
--- a/op.c
+++ b/op.c
@@ -356,7 +356,7 @@ Perl_Slab_Alloc(pTHX_ size_t sz)
        while (o && DIFF(OpSLOT(o), OpSLOT(o)->opslot_next) < sz) {
            DEBUG_S_warn((aTHX_ "Alas! too small"));
            o = *(too = &o->op_next);
-           if (o) DEBUG_S_warn((aTHX_ "found another free op at %p", o));
+           if (o) { DEBUG_S_warn((aTHX_ "found another free op at %p", o)); }
        }
        if (o) {
            *too = o->op_next;