lei: warn on event loop errors

This should help us notice (and fix) bugs more easily.

1 files changed, 2 insertions, 1 deletions

diff --git a/lib/PublicInbox/LEI.pm b/lib/PublicInbox/LEI.pm
index 784e679d..f0caac03 100644
--- a/lib/PublicInbox/LEI.pm
+++ b/lib/PublicInbox/LEI.pm
@@ -1347,7 +1347,8 @@ sub lazy_start {
         open STDERR, '>&STDIN' or die "redirect stderr failed: $!";
         open STDOUT, '>&STDIN' or die "redirect stdout failed: $!";
         # $daemon pipe to `lei' closed, main loop begins:
-        PublicInbox::DS->EventLoop;
+        eval { PublicInbox::DS->EventLoop };
+        warn "event loop error: $@\n" if $@;
         dump_and_clear_log();
         exit($exit_code // 0);
 }