listener: use EPOLLEXCLUSIVE for listen sockets

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

diff --git a/lib/PublicInbox/Listener.pm b/lib/PublicInbox/Listener.pm
index 52894cb3b4995a6a142e271789a07552d0342e8f..a75a6fd9964ed1c9c2d2780b6680aa1b39ee76b2 100644 (file)
--- a/lib/PublicInbox/Listener.pm
+++ b/lib/PublicInbox/Listener.pm
@@ -5,7 +5,7 @@
 package PublicInbox::Listener;
 use strict;
 use warnings;
-use base 'Danga::Socket';
+use base 'PublicInbox::DS';
 use Socket qw(SOL_SOCKET SO_KEEPALIVE IPPROTO_TCP TCP_NODELAY);
 use fields qw(post_accept);
 require IO::Handle;
@@ -17,7 +17,7 @@ sub new ($$$) {
        listen($s, 1024);
        IO::Handle::blocking($s, 0);
        my $self = fields::new($class);
-       $self->SUPER::new($s); # calls epoll_create for the first socket
+       $self->SUPER::new($s, 1); # calls epoll_create for the first socket
        $self->watch_read(1);
        $self->{post_accept} = $cb;
        $self