Subject: | non-blocking mode does not work on windows. |
Date: | Tue, 24 Feb 2009 20:39:27 +0900 |
To: | bug-IO [...] rt.cpan.org |
From: | Yasuhiro MATSUMOTO <mattn.jp [...] gmail.com> |
Hi.
Thanks for you great work. I tried to make socket server using
IO::Socket::INET. But non-blocking mode does not work on windows.
Below is a patch for fixing this problem. Please check and include.
--- IO.xs.orig 2006-03-26 11:27:13.000000000 +0900
+++ IO.xs 2009-02-24 20:16:34.921875000 +0900
@@ -121,7 +121,12 @@
}
return RETVAL;
#else
+# ifdef WIN32
+ unsigned long flags = block;
+ return ioctl(PerlIO_fileno(f), FIONBIO, &flags);
+# else
return -1;
+# endif
#endif
}
Best Regards, Thanks.
--
- Yasuhiro Matsumoto