This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Oops. Need a macro to convert cv_ckproto() to cv_ckproto_len().
authorNicholas Clark <nick@ccl4.org>
Wed, 19 Apr 2006 09:58:19 +0000 (09:58 +0000)
committerNicholas Clark <nick@ccl4.org>
Wed, 19 Apr 2006 09:58:19 +0000 (09:58 +0000)
p4raw-id: //depot/perl@27900

op.h

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