(tye)Re: Win32 Nonblocking Sockets

That calls IO::Handle::blocking whose code (found under ext/IO/IO.xs of the Perl source code distribution) boils down to this:

static int
io_blocking(InputStream f, int block)
{
    int RETVAL;
    if(!f) {
    errno = EBADF;
    return -1;
    }
#if defined(HAS_FCNTL)
/* ... */
#else
 return -1;
#endif
}
[download]

and HAS_FCNTL isn't defined under Win32 so it just always return -1 under Win32.

I should try to patch that. ):

Anyway, it isn't much help right now.

- tye (but my friends call me "Tye")

Comment on (tye)Re: Win32 Nonblocking Sockets Download Code

Replies are listed 'Best First'.
Re: (tye)Re: Win32 Nonblocking Sockets by ncw (Friar) on Apr 21, 2001 at 02:50 UTC
Windows does have fcntl but doesn't include O_NONBLOCK (according to mingw's headers). However I have coded non blocking sockets in a cross platform program. I used ioctl like this `int on = 1; int error = IOCTL(server_socket, FIONBIO, &on); if (error < 0) die("Couldn't set non-blocking");` [download] Note that IOCTL == ioctl under unix and == ioctlsocket under windows. I don't know whether this is useful directly from perl under windows or not but it could certainly go in the xs module. Non blocking sockets are OK under windows, but it is practically impossible to make anything else non blocking - you have to get into overlapped IO etc shudder!	[reply] [d/l]

Replies are listed 'Best First'.

Re: (tye)Re: Win32 Nonblocking Sockets
by ncw (Friar) on Apr 21, 2001 at 02:50 UTC

    int on = 1;
    int error = IOCTL(server_socket, FIONBIO, &on);
    if (error < 0)
        die("Couldn't set non-blocking");
[download]

I don't know whether this is useful directly from perl under windows or not but it could certainly go in the xs module.

Non blocking sockets are OK under windows, but it is practically impossible to make anything else non blocking - you have to get into overlapped IO etc shudder!

[reply]
[d/l]