Add MUTABLE_CV(), and eliminate (CV *) casts in *.c.

p4raw-id: //depot/perl@34647

1 files changed, 2 insertions, 2 deletions

diff --git a/op.c b/op.c
index cc027bf6b9..90a0c52976 100644
--- a/op.c
+++ b/op.c
@@ -5569,7 +5569,7 @@ Perl_newATTRSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block)
 	    {
 		Perl_warner(aTHX_ packWARN(WARN_PROTOTYPE), "Runaway prototype");
 	    }
-	    cv_ckproto_len((CV*)gv, NULL, ps, ps_len);
+	    cv_ckproto_len((const CV *)gv, NULL, ps, ps_len);
 	}
 	if (ps)
 	    sv_setpvn((SV*)gv, ps, ps_len);
@@ -6103,7 +6103,7 @@ Perl_newXS(pTHX_ const char *name, XSUBADDR_t subaddr, const char *filename)
     if (cv)				/* must reuse cv if autoloaded */
 	cv_undef(cv);
     else {
-	cv = (CV*)newSV_type(SVt_PVCV);
+	cv = MUTABLE_CV(newSV_type(SVt_PVCV));
 	if (name) {
 	    GvCV(gv) = cv;
 	    GvCVGEN(gv) = 0;