Move Object::Accessor from lib/ to ext/

[p5sagit/p5-mst-13.2.git] / ext / IO / IO.xs

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;