I'm using Net::Server for a lot of stuff, including my own Websocket implementation. For this, i switch the socket to non-blocking like this:

        my $webflags = 0;    
        fcntl(STDIN, F_GETFL, $webflags)
            or die "Couldn't get flags for HANDLE : $!\n";
        $webflags |= O_NONBLOCK;
        fcntl(STDIN, F_SETFL, $webflags)
            or die "Couldn't set flags for HANDLE: $!\n";
[download]

Then i do bytewise reads like this:

                my $data = '';
                my $buf;
                while(1) {
                    eval {
                        my $status = sysread(STDIN, $buf, 1);    
                    };
                    last if(!length($buf));
                    $data .= $buf;
                    $buf = undef;
                }
[download]

Works quite nicely, and yes, i'm aware that this isn't the most efficient way to do it. But it is nice and debugable.

The problem is: When SSL is active, sysread() blocks, but it shouldn't.

For SSL i use something like this (and yes, it works for most use cases, since i'm only using non-blocking sockets in websockets):

$server->run(
    [...some other stuff...]
    proto => 'ssl',
    usessl=>1,
    SSL_key_file=>  $config->{server}->{sslkey},
    SSL_cert_file=> $config->{server}->{sslcert},
    [...some other stuff...]
);
[download]

What am i doing wrong?