READ:
{
	die "read timeout" unless $self->can_read;
	my $n = $self->sysread($_, 1024, length);
	unless (defined $n) {
		redo READ if $!{EINTR} || $!{EAGAIN};
		# if we have already accumulated some data let's at least
		# return that as a line
		die "$what read failed: $!" unless length;  # <= ZEILE 276
	}
	unless ($n) {
		return undef unless length;
		return substr($_, 0, length, "");
	}
}