daemon: warn on inheriting blocking listeners

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

diff --git a/lib/PublicInbox/Listener.pm b/lib/PublicInbox/Listener.pm
index 594dabb83e38eacd2b2733c952c205e3ffdc2456..604289343260a54f22790795c20ead9b7d8c85da 100644 (file)
--- a/lib/PublicInbox/Listener.pm
+++ b/lib/PublicInbox/Listener.pm
@@ -16,7 +16,6 @@ sub new ($$$) {
        setsockopt($s, SOL_SOCKET, SO_KEEPALIVE, 1);
        setsockopt($s, IPPROTO_TCP, TCP_NODELAY, 1); # ignore errors on non-TCP
        listen($s, 1024);
-       IO::Handle::blocking($s, 0);
        my $self = fields::new($class);
        $self->SUPER::new($s, EPOLLIN|EPOLLET|EPOLLEXCLUSIVE);
        $self->{post_accept} = $cb;