From: Steve Hay <SteveHay@planit.com>
Date: Wed, 22 Jun 2005 13:25:16 +0000 (+0000)
Subject: Silence yet more bcc32 compiler warnings
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=454f1e2628e3c3cf05341675e973e8df77c9b0ae;p=p5sagit%2Fp5-mst-13.2.git

Silence yet more bcc32 compiler warnings

("Code has no effect")

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

diff --git a/hv.c b/hv.c
index 0157886..eb2a1a5 100644
--- a/hv.c
+++ b/hv.c
@@ -134,7 +134,7 @@ Perl_hek_dup(pTHX_ HEK *source, CLONE_PARAMS* param)
 
     if (shared) {
 	/* We already shared this hash key.  */
-	share_hek_hek(shared);
+	(void)share_hek_hek(shared);
     }
     else {
 	shared
@@ -176,7 +176,7 @@ Perl_he_dup(pTHX_ HE *e, bool shared, CLONE_PARAMS* param)
 
 	if (shared) {
 	    /* We already shared this hash key.  */
-	    share_hek_hek(shared);
+	    (void)share_hek_hek(shared);
 	}
 	else {
 	    shared
diff --git a/pp_ctl.c b/pp_ctl.c
index 6fd1add..94a3f31 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -295,7 +295,7 @@ PP(pp_substcont)
 	mg->mg_len = i;
     }
     if (old != rx)
-	ReREFCNT_inc(rx);
+	(void)ReREFCNT_inc(rx);
     cx->sb_rxtainted |= RX_MATCH_TAINTED(rx);
     rxres_save(&cx->sb_rxres, rx);
     RETURNOP(pm->op_pmreplstart);
diff --git a/pp_hot.c b/pp_hot.c
index bd61e40..8df8e09 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -2195,7 +2195,7 @@ PP(pp_subst)
 	if (!c) {
 	    register PERL_CONTEXT *cx;
 	    SPAGAIN;
-	    ReREFCNT_inc(rx);
+	    (void)ReREFCNT_inc(rx);
 	    PUSHSUBST(cx);
 	    RETURNOP(cPMOP->op_pmreplroot);
 	}