| … | |
… | |
| 2006 | push @linger, AE::io $fh, 1, sub { |
2006 | push @linger, AE::io $fh, 1, sub { |
| 2007 | my $len = syswrite $fh, $wbuf, length $wbuf; |
2007 | my $len = syswrite $fh, $wbuf, length $wbuf; |
| 2008 | |
2008 | |
| 2009 | if ($len > 0) { |
2009 | if ($len > 0) { |
| 2010 | substr $wbuf, 0, $len, ""; |
2010 | substr $wbuf, 0, $len, ""; |
| 2011 | } else { |
2011 | } elsif (defined $len || ($! != EAGAIN && $! != EINTR && $! != WSAEWOULDBLOCK)) { |
| 2012 | @linger = (); # end |
2012 | @linger = (); # end |
| 2013 | } |
2013 | } |
| 2014 | }; |
2014 | }; |
| 2015 | push @linger, AE::timer $linger, 0, sub { |
2015 | push @linger, AE::timer $linger, 0, sub { |
| 2016 | @linger = (); |
2016 | @linger = (); |
