X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FTak%2FLoop.pm;h=a1a4db3738ca38e0e7f67b6939ebaabdc70877c1;hb=2791fd73b196072f047b2b3d746b64be53312ca3;hp=464eb6985205723da6e9429658ea2de93d04dcd1;hpb=986f5290d9338118f95f2293f705368fb142d270;p=scpubgit%2FTak.git

diff --git a/lib/Tak/Loop.pm b/lib/Tak/Loop.pm
index 464eb69..a1a4db3 100644
--- 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}();
   }