* fix a bug with the behavior of send system call in non blocking mode

        in some rare case

1 files changed, 11 insertions, 0 deletions

diff --git a/Ivy.pm b/Ivy.pm
index 854bffe..05fa108 100644
--- a/Ivy.pm
+++ b/Ivy.pm
@@ -1940,6 +1940,17 @@ sub _univSend ($$$)
       select (undef, $win, undef, undef);
     }
   } else {
+    if ($!{EWOULDBLOCK}) {
+      # Aucun octet n'a été envoyé, mais le send ne rend pas 0
+      # car 0 peut être une longueur passée au send, donc dans ce cas
+      # send renvoie -1 et met errno a EWOULDBLOCK
+      _callCongestionCb ($self, $fd, 1);
+      if  ($self->[blockOnSlowAgent]) {
+	my $win = '';
+	vec($win, fileno ($fd), 1) = 1;
+	select (undef, $win, undef, undef);
+      }
+    }
     $self->_removeFileDescriptor ($fd, '_univSend') unless ($!{EAGAIN} || $!{EWOULDBLOCK}|| $!{EINTR} || $!{EMSGSIZE} || $!{ENOBUFS})
   }
 }