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 (file)
--- 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 (file)
--- 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 (file)
--- 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);
        }