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

diff --git a/lib/Tak/Loop.pm b/lib/Tak/Loop.pm
index 888136c..464eb69 100644
--- a/lib/Tak/Loop.pm
+++ b/lib/Tak/Loop.pm
@@ -29,7 +29,8 @@ sub unwatch_io {
 sub loop_once {
   my ($self) = @_;
   my $read = $self->_read_watches;
-  my ($readable) = IO::Select->select($self->_read_select);
+  my ($readable) = IO::Select->select($self->_read_select, undef, undef, 0.5);
+  die "FFFFFUUUUU: $!" unless $readable;
   foreach my $fh (@$readable) {
     $read->{$fh}();
   }