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

p4raw-id: //depot/perl@34647

1 files changed, 2 insertions, 2 deletions

diff --git a/pp_hot.c b/pp_hot.c
index 44ded8a62f..d812e95644 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -2714,7 +2714,7 @@ PP(pp_entersub)
 	    SV * const * sp = &sv;		/* Used in tryAMAGICunDEREF macro. */
 	    tryAMAGICunDEREF(to_cv);
 	}	
-	cv = (CV*)SvRV(sv);
+	cv = MUTABLE_CV(SvRV(sv));
 	if (SvTYPE(cv) == SVt_PVCV)
 	    break;
 	/* FALL THROUGH */
@@ -2723,7 +2723,7 @@ PP(pp_entersub)
 	DIE(aTHX_ "Not a CODE reference");
 	/* This is the second most common case:  */
     case SVt_PVCV:
-	cv = (CV*)sv;
+	cv = MUTABLE_CV(sv);
 	break;
     }