Re: [perl #36410] Net::SSH::Perl Can't set socket non-blocking

[Salvador Fandino]

Michael G Schwern wrote:
On Tue, Jun 28, 2005 at 01:59:20PM -0000, Stengel, Roland wrote:
I try to use Net::SSH on Windows XP, Perl 5.6.1. On opening a connection
the Net::SSH::Perl.pm fails:


Thank you for your bug report but p5p does not maintain Net::SSH::Perl.
Please contact the author of the module, David Robins, at [EMAIL PROTECTED]

I believe this is a bug on IO.xs actually. On windows machines HAS_FCNTL 
is false and io_blocking gets reduced to "return -1;"

Sometime ago I found this workaround:

if ($^O eq 'MSWin32') {
  no warnings;
  *IO::Socket::blocking = sub {
    my ($self, $blocking) = @_;
    my $nonblocking = $blocking ? 0 : 1;
    ioctl($self, 0x8004667e, $nonblocking);
    return 1;
  };
}

but I believe it doesn't work in some cases either.

I haven't got any Win32 machine around for testing, sorry.

Cheers,

  - Salvador