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