## 276          # consume all incoming bytes
                while(1) {
                    my $bytes_read = $self->sysread($_, 1024, length);
                    if(defined $bytes_read) {
                        $new_bytes += $bytes_read;
                        last if $bytes_read < 1024;
                    }
                    elsif($!{EINTR} || $!{EAGAIN} || $!{EWOULDBLOCK}) {
                        redo READ;
                    }
...