From 55a80fa06def8f37cef9b790706d56aeb65cd0dc Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Fri, 26 Nov 2010 14:00:56 -0800 Subject: [PATCH] Fix compiler warning --- gv.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gv.c b/gv.c index f51839e..5fd385b 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); -- 1.8.3.1