From: Eric Wong <e@80x24.org>
Date: Wed, 8 May 2019 09:07:36 +0000 (+0000)
Subject: DS: handle EINTR in IO::Poll path, too
X-Git-Tag: v1.2.0~296^2~4
X-Git-Url: http://www.git.stargrave.org/?p=public-inbox.git;a=commitdiff_plain;h=1a893e4ec99ce438788cf8cfa17279452c3b26b7

DS: handle EINTR in IO::Poll path, too

IO::Poll::_poll returns -1, which is "true" to Perl.

cf. https://rt.cpan.org/Ticket/Display.html?id=129484
---

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;
         }