my ($self) = @_;
my $read = $self->_read_watches;
my ($readable) = IO::Select->select($self->_read_select, undef, undef, 0.5);
- die "FFFFFUUUUU: $!" unless $readable;
+ # I would love to trap errors in the select call but IO::Select doesn't
+ # differentiate between an error and a timeout.
+ # -- no, love, mst.
foreach my $fh (@$readable) {
$read->{$fh}();
}