Stefan Drexleri wrote:
> I'm using perl script droute.pl from here:
> http://www.doxpara.com/ozymandns_src_0.1.tgz
> It's written for Linux.
>
> Why shouldn't F_GETFL be used?
To avoid your problem obviously. :)
The code looks really ragged to me. select only works on sockets
in Win32, which would make it more difficult to do some things.
You can do non-blocking I/O to the console uwing Win32::Console
or Term::Readkey. I'm guessing that on UNIX, this script is
spawned off with STDOUT/STDIN rerouted to possibly a remote socket.
You should be able to modify the code for the read and write to
handle non-blocking IO for Win32:
if ($^O eq 'MSWin32') {
} else {
}
and put the new code in the if part to handle non-blocking IO.
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
