listener: switch to level-triggered epoll

[public-inbox.git] / lib / PublicInbox / Listener.pm

diff --git a/lib/PublicInbox/Listener.pm b/lib/PublicInbox/Listener.pm
index c831581076a0d582dfcd44ba0ca8c65b010dd797..09f1f2e5fabde020d464995552e896729981d4c6 100644 (file)
--- a/lib/PublicInbox/Listener.pm
+++ b/lib/PublicInbox/Listener.pm
@@ -7,7 +7,7 @@ use strict;
 use parent 'PublicInbox::DS';
 use Socket qw(SOL_SOCKET SO_KEEPALIVE IPPROTO_TCP TCP_NODELAY);
 use IO::Handle;
-use PublicInbox::Syscall qw(EPOLLIN EPOLLEXCLUSIVE EPOLLET);
+use PublicInbox::Syscall qw(EPOLLIN EPOLLEXCLUSIVE);
 use Errno qw(EAGAIN ECONNABORTED EPERM);
 
 # Warn on transient errors, mostly resource limitations.
@@ -20,9 +20,9 @@ sub new ($$$) {
        my ($class, $s, $cb) = @_;
        setsockopt($s, SOL_SOCKET, SO_KEEPALIVE, 1);
        setsockopt($s, IPPROTO_TCP, TCP_NODELAY, 1); # ignore errors on non-TCP
-       listen($s, 1024);
+       listen($s, 2**31 - 1); # kernel will clamp
        my $self = bless { post_accept => $cb }, $class;
-       $self->SUPER::new($s, EPOLLIN|EPOLLET|EPOLLEXCLUSIVE);
+       $self->SUPER::new($s, EPOLLIN|EPOLLEXCLUSIVE);
 }
 
 sub event_step {
@@ -38,7 +38,6 @@ sub event_step {
                IO::Handle::blocking($c, 0); # no accept4 :<
                eval { $self->{post_accept}->($c, $addr, $sock) };
                warn "E: $@\n" if $@;
-               $self->requeue;
        } elsif ($! == EAGAIN || $! == ECONNABORTED || $! == EPERM) {
                # EAGAIN is common and likely
                # ECONNABORTED is common with bad connections