Perl_cv_const_sv() takes a const CV *const cv argument.

p4raw-id: //depot/perl@34645

1 files changed, 1 insertions, 1 deletions

diff --git a/op.c b/op.c
index 15e6522aed..cc027bf6b9 100644
--- a/op.c
+++ b/op.c
@@ -5385,7 +5385,7 @@ L<perlsub/"Constant Functions">.
 =cut
 */
 SV *
-Perl_cv_const_sv(pTHX_ CV *cv)
+Perl_cv_const_sv(pTHX_ const CV *const cv)
 {
     PERL_UNUSED_CONTEXT;
     if (!cv)