This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix compiler warning
authorFather Chrysostomos <sprout@cpan.org>
Fri, 26 Nov 2010 22:00:56 +0000 (14:00 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Fri, 26 Nov 2010 22:00:56 +0000 (14:00 -0800)
gv.c

diff --git a/gv.c b/gv.c
index f51839e..5fd385b 100644 (file)
--- 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);