lei: use sleep(1) loop for infinite sleep

Perl may internally race and miss signals due to a lack of
self-pipe / eventfd / signalfd / EVFILT_SIGNAL usage.  While our
event loop paths avoid these problems by using signalfd or
EVFILT_SIGNAL, thse sleep() calls are not within the event loop.

1 files changed, 1 insertions, 1 deletions

diff --git a/lib/PublicInbox/LEI.pm b/lib/PublicInbox/LEI.pm
index 005f6f7a..28dce0c5 100644
--- a/lib/PublicInbox/LEI.pm
+++ b/lib/PublicInbox/LEI.pm
@@ -299,7 +299,7 @@ sub x_it ($$) {
                 if (my $signum = ($code & 127)) { # usually SIGPIPE (13)
                         $SIG{PIPE} = 'DEFAULT'; # $SIG{$signum} doesn't work
                         kill $signum, $$;
-                        sleep; # wait for signal
+                        sleep(1) while 1; # wait for signal
                 } else {
                         $quit->($code >> 8);
                 }