This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Wrap the macro arguments for ck_proto in ().
authorNicholas Clark <nick@ccl4.org>
Wed, 24 Jan 2007 18:44:51 +0000 (18:44 +0000)
committerNicholas Clark <nick@ccl4.org>
Wed, 24 Jan 2007 18:44:51 +0000 (18:44 +0000)
p4raw-id: //depot/perl@29954

op.h

diff --git a/op.h b/op.h
index d8c5478..746e635 100644 (file)
--- a/op.h
+++ b/op.h
@@ -578,7 +578,8 @@ struct loop {
 
 /* no longer used anywhere in core */
 #ifndef PERL_CORE
-#define cv_ckproto(cv, gv, p) cv_ckproto_len(cv, gv, p, p ? strlen(p) : 0)
+#define cv_ckproto(cv, gv, p) \
+   cv_ckproto_len((cv), (gv), (p), (p) ? strlen(p) : 0)
 #endif
 
 #ifdef USE_REENTRANT_API