silence some compiler warnings

p4raw-id: //depot/perl@22440

1 files changed, 1 insertions, 1 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index d426005692..fa2c87ceae 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;
 	    }
 	}