On Fri Mar 13 13:11:47 2015, PEVANS wrote:
Show quoted text> That paste has expired :(
>
> If anyone still has it to hand could they attach it to the bug?
Yeah, sorry about that. The attached patch should be identical to the expired one. I applied it to my installation
just as Tom typed it.
--- lib/IO/Async/Listener.pm 2015-02-15 14:43:51.000000000 +0000
+++ /home/dakkar/.perlbrew/libs/perl-5.20.1@nap/lib/perl5/IO/Async/Listener.pm 2015-02-27 16:58:03.191958253 +0000
@@ -295,7 +295,8 @@
$on_done->( $self, $result );
})->on_fail( sub {
my ( $message, undef, $socket, $dollarbang ) = @_;
- $self->maybe_invoke_event( on_accept_error => $socket, $dollarbang );
+ $self->maybe_invoke_event( on_accept_error => $socket, $dollarbang )
+ #unless ($dollarbang||0) == EAGAIN or ($dollarbang||0) == EWOULDBLOCK;
});
# Caller is not going to keep hold of the Future, so we have to ensure it
@@ -321,7 +322,7 @@
}
}
elsif( $! == EAGAIN or $! == EWOULDBLOCK ) {
- return Future->new->done;
+ return Future->new->fail( "Missed it", accept => $listen_sock, $! );
}
else {
return Future->new->fail( "Cannot accept() - $!", accept => $listen_sock, $! );