On Wed, Nov 23, 2011 at 2:31 PM, goran kent <[email protected]> wrote: > my $ret; > do { > $ret = $client_sock->sysread( $buf, $len ); > last if not $ret; > $check_val += $ret; > } while $ret;
Using $offset and checks to make sure sysread doesn't stray into trailing transactions, of course... my Perlish is failing me here.
