From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 19 Apr 2006 09:58:19 +0000 (+0000)
Subject: Oops. Need a macro to convert cv_ckproto() to cv_ckproto_len().
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=33f36c7173d6dd43ce4e6d15c3d8b88b5652cdfd;p=p5sagit%2Fp5-mst-13.2.git

Oops. Need a macro to convert cv_ckproto() to cv_ckproto_len().

p4raw-id: //depot/perl@27900
---

diff --git a/op.h b/op.h
index 7ae65d7..1c9375c 100644
--- a/op.h
+++ b/op.h
@@ -540,6 +540,11 @@ struct loop {
 /* used in perly.y */
 #define ref(o, type) doref(o, type, TRUE)
 
+/* 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)
+#endif
+
 #ifdef USE_REENTRANT_API
 #include "reentr.h"
 #endif