Make non-blocking mode work on Windows in IO::Socket::INET

CPAN RT bug #43573

diff --git a/ext/IO/IO.pm b/ext/IO/IO.pm
index ac06642..5f42651 100644 (file)
--- a/ext/IO/IO.pm
+++ b/ext/IO/IO.pm
@@ -7,7 +7,7 @@ use Carp;
 use strict;
 use warnings;
 
-our $VERSION = "1.23_01";
+our $VERSION = "1.23_02";
 XSLoader::load 'IO', $VERSION;
 
 sub import {

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