In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/94b67eb26513907eccd2427a005de4d512e8a127?hp=70794f7b4fe6d2c8f69493d55274dba5e4a20f91>
- Log -----------------------------------------------------------------
commit 94b67eb26513907eccd2427a005de4d512e8a127
Author: Jesse Luehrs <doy@tozt.net>
Date: Fri Jun 29 11:23:59 2012 -0500
fix compiler warning
-----------------------------------------------------------------------
Summary of changes:
op.c | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
diff --git a/op.c b/op.c
index 5de86a1..2281ddf 100644
--- 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;
--
Perl5 Master Repository