Non-Blocking INET getline

[Outaspace]

Hi, I have a Problem with blocking INET reading. I created a socket and wait till a client connect to it. But no matter what I do, whenever I try to read from the socket, it blocks. I tried $Client->blocking(0), but it seems to have no effect. I tested it under Win2000 with Perl 5.6.1. Does anyone kown how I can solve this problem? Code:

$Socket = IO::Socket::INET->new(
                                      LocalPort => '25022',
                                      Proto => 'tcp',
                                      Listen => 10,
                                      Timeout => 1,
                                      Type => SOCK_STREAM,
                                      Reuse => 1
                                      ) or die $!;

until($Client = $Socket->accept()) {}


$Client->blocking(0);
# The next statment shouldnt block, but it does !!!
$Input = <$Client>;
$Client->blocking(1);

Later in the program I need the blocking. Has this anything to do with Perl or Windows Version, I have problems with sockets under Win NT 4.0 too, but on the Client side ( but this is another story ). Andre

[matija]

Reading with <> will block, because the string it returns is guaranteed to be terminated with a newline, (or the last non-terminated string before the end of communication). I agree that you should use sysread when reading from sockets.

[monarch]

This is only a suggestion.. but try using sysread() instead of <$Client>. Also you can specify Blocking => 0 as an argument to the socket object creation method.

[Outaspace]

I tried:

sysread($Client,$szInput,1)

Sorry but sysread blocks too. Is there no way to check the socket first, before I try to read somrthing from it ???