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 (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)
 
+/* 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