Silence two compiler warnings in gv.c
authorFather Chrysostomos <sprout@cpan.org>
Fri, 2 Sep 2011 04:26:24 +0000 (21:26 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Fri, 2 Sep 2011 05:02:01 +0000 (22:02 -0700)
gv.c

diff --git a/gv.c b/gv.c
index 07ff3b2..b3b628e 100644 (file)
--- a/gv.c
+++ b/gv.c
@@ -1403,7 +1403,7 @@ Perl_gv_fetchpvn_flags(pTHX_ const char *nambeg, STRLEN full_len, I32 flags,
            (void)core_prototype((SV *)cv, name, code, &opnum);
            if (ampable) {
                if (addmg) {
-                   hv_store(stash,name,len,(SV *)gv,0);
+                   (void)hv_store(stash,name,len,(SV *)gv,0);
                    addmg = FALSE;
                }
                CvLVALUE_on(cv);
@@ -1712,7 +1712,7 @@ Perl_gv_fetchpvn_flags(pTHX_ const char *nambeg, STRLEN full_len, I32 flags,
        if (GvAV(gv) || GvHV(gv) || GvIO(gv) || GvCV(gv) || (
             GvSV(gv) && (SvOK(GvSV(gv)) || SvMAGICAL(GvSV(gv)))
           ))
-           hv_store(stash,name,len,(SV *)gv,0);
+           (void)hv_store(stash,name,len,(SV *)gv,0);
        else SvREFCNT_dec(gv), gv = NULL;
     }
     if (gv) gv_init_sv(gv, faking_it ? SVt_PVCV : sv_type);