From: Steve Hay <SteveHay@planit.com>
Date: Fri, 8 May 2009 10:08:02 +0000 (+0100)
Subject: Silence Win32 compiler warning in IO.xs
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5f1c7092739bf7bb81e301f20fd4c428602d6f9b;p=p5sagit%2Fp5-mst-13.2.git

Silence Win32 compiler warning in IO.xs

The ioctl() function on Win32 is really win32_ioctl(), the third argument
of which is a char*.
---

diff --git a/ext/IO/IO.xs b/ext/IO/IO.xs
index 7d0d4db..d3dff55 100644
--- a/ext/IO/IO.xs
+++ b/ext/IO/IO.xs
@@ -122,7 +122,7 @@ io_blocking(pTHX_ InputStream f, int block)
     return RETVAL;
 #else
 #   ifdef WIN32
-    unsigned long flags = block;
+    char flags = (char)block;
     return ioctl(PerlIO_fileno(f), FIONBIO, &flags);
 #   else
     return -1;