This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Unused hv_store() result.
authorJarkko Hietaniemi <jhi@iki.fi>
Fri, 5 Dec 2014 02:41:11 +0000 (21:41 -0500)
committerJarkko Hietaniemi <jhi@iki.fi>
Sat, 6 Dec 2014 00:48:03 +0000 (19:48 -0500)
ext/POSIX/POSIX.xs

index aecbd67..4ee0ec2 100644 (file)
@@ -1580,7 +1580,7 @@ static XSPROTO(is_common)
                 Perl_warner(aTHX_ packWARN(WARN_DEPRECATED),
                             "Calling POSIX::%"HEKf"() is deprecated",
                             HEKfARG(GvNAME_HEK(CvGV(cv))));
-               hv_store(warned, (const char *)&PL_op, sizeof(PL_op), &PL_sv_yes, 0);
+               (void)hv_store(warned, (const char *)&PL_op, sizeof(PL_op), &PL_sv_yes, 0);
             }
         }
 
@@ -3024,7 +3024,7 @@ tmpnam()
            HV *warned = get_hv("POSIX::_warned", GV_ADD | GV_ADDMULTI);
             if (! hv_exists(warned, (const char *)&PL_op, sizeof(PL_op))) {
                 Perl_warner(aTHX_ packWARN(WARN_DEPRECATED), "Calling POSIX::tmpnam() is deprecated");
-                hv_store(warned, (const char *)&PL_op, sizeof(PL_op), &PL_sv_yes, 0);
+                (void)hv_store(warned, (const char *)&PL_op, sizeof(PL_op), &PL_sv_yes, 0);
             }
         }
        len = strlen(tmpnam(SvPV(RETVAL, i)));