From: Dave Mitchell <davem@fdisolutions.com>
Date: Fri, 5 Mar 2004 00:09:23 +0000 (+0000)
Subject: silence some compiler warnings
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b988aa42542aa1211e2de8ba6ea52415dd30488b;p=p5sagit%2Fp5-mst-13.2.git

silence some compiler warnings

p4raw-id: //depot/perl@22440
---

diff --git a/pp_ctl.c b/pp_ctl.c
index d426005..fa2c87c 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -948,7 +948,7 @@ PP(pp_mapwhile)
 	     * (we use undef here). And so we certainly don't want to do mortal
 	     * copies of meaningless values. */
 	    while (items-- > 0) {
-		POPs;
+		(void)POPs;
 		*dst-- = &PL_sv_undef;
 	    }
 	}
diff --git a/sv.c b/sv.c
index ed6051a..f8bd408 100644
--- a/sv.c
+++ b/sv.c
@@ -4227,7 +4227,7 @@ Perl_sv_setsv_cow(pTHX_ SV *dstr, SV *sstr)
     }
     else
 	new_SV(dstr);
-    SvUPGRADE (dstr, SVt_PVIV);
+    (void)SvUPGRADE (dstr, SVt_PVIV);
 
     assert (SvPOK(sstr));
     assert (SvPOKp(sstr));
@@ -4250,7 +4250,7 @@ Perl_sv_setsv_cow(pTHX_ SV *dstr, SV *sstr)
 	SV_COW_NEXT_SV_SET(dstr, SV_COW_NEXT_SV(sstr));
     } else {
 	assert ((SvFLAGS(sstr) & CAN_COW_MASK) == CAN_COW_FLAGS);
-	SvUPGRADE (sstr, SVt_PVIV);
+	(void)SvUPGRADE (sstr, SVt_PVIV);
 	SvREADONLY_on(sstr);
 	SvFAKE_on(sstr);
 	DEBUG_C(PerlIO_printf(Perl_debug_log,