make connector time out correctly

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

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