Fix compiler warning

1 files changed, 1 insertions, 1 deletions

diff --git a/gv.c b/gv.c
index f51839e6a8..5fd385bd11 100644
--- a/gv.c
+++ b/gv.c
@@ -319,7 +319,7 @@ Perl_gv_init(pTHX_ GV *gv, HV *stash, const char *name, STRLEN len, int multi)
 	    cv = newCONSTSUB(stash, (name0 ? name0 : name), has_constant);
 	    /* In case op.c:S_process_special_blocks stole it: */
 	    if (!GvCV(gv))
-		GvCV(gv) = SvREFCNT_inc_simple_NN(cv);
+		GvCV(gv) = (CV *)SvREFCNT_inc_simple_NN(cv);
 	    assert(GvCV(gv) == cv); /* newCONSTSUB should have set this */
 	    if (name0)
 		Safefree(name0);