This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Adding const qualifiers
[perl5.git] / op.c
diff --git a/op.c b/op.c
index 77a213e..6631fe3 100644 (file)
--- a/op.c
+++ b/op.c
@@ -4031,7 +4031,7 @@ Perl_cv_undef(pTHX_ CV *cv)
 }
 
 void
 }
 
 void
-Perl_cv_ckproto(pTHX_ CV *cv, GV *gv, char *p)
+Perl_cv_ckproto(pTHX_ const CV *cv, const GV *gv, const char *p)
 {
     if (((!p != !SvPOK(cv)) || (p && strNE(p, SvPVX(cv)))) && ckWARN_d(WARN_PROTOTYPE)) {
        SV* msg = sv_newmortal();
 {
     if (((!p != !SvPOK(cv)) || (p && strNE(p, SvPVX(cv)))) && ckWARN_d(WARN_PROTOTYPE)) {
        SV* msg = sv_newmortal();