about summary refs log tree commit
diff options
context:
space:
mode:
authorEric Wong <e@80x24.org>2019-05-08 09:07:36 +0000
committerEric Wong <e@80x24.org>2019-05-08 18:16:40 +0000
commit1a893e4ec99ce438788cf8cfa17279452c3b26b7 (patch)
treef31b3c96f2cf4a5dcb92239d19ea497a4a877ffc
parente229e045a93ef35c335af00cd0e130a6ec6146d4 (diff)
downloadpublic-inbox-1a893e4ec99ce438788cf8cfa17279452c3b26b7.tar.gz
IO::Poll::_poll returns -1, which is "true" to Perl.

cf. https://rt.cpan.org/Ticket/Display.html?id=129484
-rw-r--r--lib/PublicInbox/DS.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/PublicInbox/DS.pm b/lib/PublicInbox/DS.pm
index ea09fc96..5dd1bb7c 100644
--- a/lib/PublicInbox/DS.pm
+++ b/lib/PublicInbox/DS.pm
@@ -386,7 +386,7 @@ sub PollEventLoop {
         }
 
         my $count = IO::Poll::_poll($timeout, @poll);
-        unless ($count) {
+        unless ($count >= 0) {
             return unless PostEventLoop();
             next;
         }