Lyle Kopnicky wrote:
> Hi folks,
>
> I'm using the HTTP::Daemon module. Is there any way to do non-blocking
> IO with that? Thanks.
Should work if it's inherited from IO::Handle :
$sock->blocking(0) ...
You could try (not sure if it works) :
setsockopt $sock, IPPROTO_TCP, TCP_NODELAY, 1 or die "setsockopt: $!";
obj version might also work if the object is inherited from IO::Socket
$sock->setsockopt(...) or die ...
Another thing to try:
use constant FIONBIO => 0x8004667E;
my $tmp = pack 'L', 1;
my $ret2 = $sock->ioctl(FIONBIO, $tmp) or die "ioctl FIONBIO: $! ($^E)";
_______________________________________________
Perl-Win32-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
