repl works again

[scpubgit/Tak.git] / lib / Tak / Loop.pm

diff --git a/lib/Tak/Loop.pm b/lib/Tak/Loop.pm
index 464eb69..a1a4db3 100644 (file)
--- a/lib/Tak/Loop.pm
+++ b/lib/Tak/Loop.pm
@@ -30,7 +30,9 @@ sub loop_once {
   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}();
   }