input_pipe: fix socket check

`-S' is the correct file test op for sockets, `-s' is for st_size.

diff --git a/lib/PublicInbox/InputPipe.pm b/lib/PublicInbox/InputPipe.pm
index 8358ddd629ccb7b591d4dbb14d2a500da59327c5..b38d8270f68c27312753c258336bc4c425277cae 100644 (file)
--- a/lib/PublicInbox/InputPipe.pm
+++ b/lib/PublicInbox/InputPipe.pm
@@ -39,7 +39,7 @@ sub consume {
        if ($@) { # regular file (but not w/ select|IO::Poll backends)
                $self->{-need_rq} = 1;
                $self->requeue;
-       } elsif (-p $in || -s _) { # O_NONBLOCK for sockets and pipes
+       } elsif (-p $in || -S _) { # O_NONBLOCK for sockets and pipes
                $in->blocking(0);
        } elsif (-t $in) { # isatty(3) can't use `_' stat cache
                unblock_tty($self);