From: Steve Peters <steve@fisharerojo.org>
Date: Wed, 21 Mar 2007 23:21:46 +0000 (+0000)
Subject: Silence a couple of warnings caused by change #30672.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8b7231d9a7617fcb58e0a2517db5f2a58d67e5d2;p=p5sagit%2Fp5-mst-13.2.git

Silence a couple of warnings caused by change #30672.
p4raw-link: @30672 on //depot/perl: c94db568e030a227855e08f584b1bff860be0cf5

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

diff --git a/doio.c b/doio.c
index 1f1d2a2..e1acc67 100644
--- a/doio.c
+++ b/doio.c
@@ -1832,7 +1832,8 @@ nothing in the core.
 		    if (GvIO(gv) && IoIFP(GvIOp(gv))) {
 #ifdef HAS_FUTIMES
 			APPLY_TAINT_PROPER();
-			if (futimes(PerlIO_fileno(IoIFP(GvIOn(gv))), utbufp))
+			if (futimes(PerlIO_fileno(IoIFP(GvIOn(gv))),
+                            (struct timeval *) utbufp))
 			    tot--;
 #else
 			Perl_die(aTHX_ PL_no_func, "futimes");
@@ -1850,7 +1851,7 @@ nothing in the core.
 		    const char * const name = SvPV_nolen_const(*mark);
 		    APPLY_TAINT_PROPER();
 #ifdef HAS_FUTIMES
-		    if (utimes(name, utbufp))
+		    if (utimes(name, (struct timeval *)utbufp))
 #else
 		    if (PerlLIO_utime(name, utbufp))
 #endif