diff options
| author | Yasuhiro Matsumoto <mattn.jp@gmail.com> | 2009-02-26 09:09:33 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-02-26 09:09:33 +0100 |
| commit | 20caf59dc5a2137cdf1de6dae458da063417a8d2 (patch) | |
| tree | 3802ab6fcba9117fe04c10f07753b7ec38156310 /ext/IO | |
| parent | d9e167fc3a2d8fd65ae4ea5f68829988c35acb53 (diff) | |
| download | perl-20caf59dc5a2137cdf1de6dae458da063417a8d2.tar.gz | |
Make non-blocking mode work on Windows in IO::Socket::INET
CPAN RT bug #43573
Diffstat (limited to 'ext/IO')
| -rw-r--r-- | ext/IO/IO.pm | 2 | ||||
| -rw-r--r-- | ext/IO/IO.xs | 5 |
2 files changed, 6 insertions, 1 deletions
diff --git a/ext/IO/IO.pm b/ext/IO/IO.pm index ac0664258e..5f426511ec 100644 --- 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 c81cb93152..7d0d4db7c9 100644 --- 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 } |