Perl_cv_ckproto() is not part of the public API, and not used anywhere

in the core. So it can go.

p4raw-id: //depot/perl@34922

1 files changed, 0 insertions, 8 deletions

diff --git a/mathoms.c b/mathoms.c
index 4bac51e28e..a65a99f514 100644
--- a/mathoms.c
+++ b/mathoms.c
@@ -1276,14 +1276,6 @@ Perl_sv_usepvn(pTHX_ SV *sv, char *ptr, STRLEN len)
     sv_usepvn_flags(sv,ptr,len, 0);
 }
 
-void
-Perl_cv_ckproto(pTHX_ const CV *cv, const GV *gv, const char *p)
-{
-    PERL_ARGS_ASSERT_CV_CKPROTO;
-
-    cv_ckproto_len(cv, gv, p, p ? strlen(p) : 0);
-}
-
 /*
 =for apidoc unpack_str