From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Thu, 8 May 2003 18:49:25 +0000 (+0000)
Subject: Suppress a few compilation warnings in pp_hot.c.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=929a4907d56d33ad69150da8025e2267d4eeb613;p=p5sagit%2Fp5-mst-13.2.git

Suppress a few compilation warnings in pp_hot.c.

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

diff --git a/pp_hot.c b/pp_hot.c
index 416eba5..926a1f8 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -795,7 +795,6 @@ PP(pp_rv2hv)
 {
     dSP; dTOPss;
     HV *hv;
-    I32 gimme = GIMME_V;
 
     if (SvROK(sv)) {
       wasref:
@@ -1498,7 +1497,7 @@ Perl_do_readline(pTHX)
 	    /* undef TARG, and push that undefined value */
 	    if (type != OP_RCATLINE) {
 		SV_CHECK_THINKFIRST_COW_DROP(TARG);
-		SvOK_off(TARG);
+		(void)SvOK_off(TARG);
 	    }
 	    PUSHTARG;
 	}
@@ -1562,7 +1561,7 @@ Perl_do_readline(pTHX)
 	    if (gimme == G_SCALAR) {
 		if (type != OP_RCATLINE) {
 		    SV_CHECK_THINKFIRST_COW_DROP(TARG);
-		    SvOK_off(TARG);
+		    (void)SvOK_off(TARG);
 		}
 		SPAGAIN;
 		PUSHTARG;