Skip Menu |

This queue is for tickets about the IO CPAN distribution.

Report information
The Basics
Id: 43573
Status: resolved
Priority: 0/
Queue: IO

People
Owner: Nobody in particular
Requestors: mattn.jp [...] gmail.com
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)



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
On 木曜日 2月 26 03:11:24 2009, RGARCIA wrote: Show quoted text
> Patch applied to bleadperl as : > >
http://perl5.git.perl.org/perl.git/commitdiff/20caf59dc5a2137cdf1de6dae4 58da063417a8d2 Oops. sorry, i checked it using mingw32 gcc only. http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2009- 02/msg00656.html i attached a 0001-removed-warning.patch to remove the warning.