dskqxs: fix loop to allow `next'

`do {} while(...)' loops in Perl don't support `next', actually :x
This only affects *BSD platforms with IO::KQueue installed.

Fixes: d6674af04cb74a4e "httpd|nntpd: avoid missed signal wakeups"

diff --git a/lib/PublicInbox/DSKQXS.pm b/lib/PublicInbox/DSKQXS.pm
index eccfa56d72cb5fc8d2151a6f2f1f4b19e9251ce9..7141b1317f96d87ebae12fb4417df1e52ffd6da5 100644 (file)
--- a/lib/PublicInbox/DSKQXS.pm
+++ b/lib/PublicInbox/DSKQXS.pm
@@ -71,7 +71,7 @@ sub READ { # called by sysread() for signalfd compatibility
        my $nr = $len / 128;
        my $r = 0;
        $_[1] = '';
-       do {
+       while (1) {
                while ($nr--) {
                        my $signo = shift(@$sigbuf) or last;
                        # caller only cares about signalfd_siginfo.ssi_signo:
@@ -94,7 +94,7 @@ sub READ { # called by sysread() for signalfd compatibility
                # field shows coalesced signals, and maybe we'll use it
                # in the future...
                @$sigbuf = map { $_->[0] } @events;
-       } while (1);
+       }
 }
 
 # for fileno() calls in PublicInbox::DS