prefork-interp: better message on quit

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

diff --git a/pm/Proc/Prefork/Interp.pm b/pm/Proc/Prefork/Interp.pm
index 14063516ab3e91c23f097ae4fdbcca785b3b7f0b..969566d9e9c1494301397c4ee0f772fcb945701c 100644 (file)
--- a/pm/Proc/Prefork/Interp.pm
+++ b/pm/Proc/Prefork/Interp.pm
@@ -279,6 +279,8 @@ sub initialisation_complete {
       chomp $msgbuf;
       fail_log("watcher: $msgbuf");
     } elsif (defined $r) {
+      syslog(LOG_INFO,
+ "$0 prefork [$$]: lost socket (fresh start or cleanup?), quitting");
       last;
     } elsif ($! == EINTR || $! == EAGAIN || $! == EWOULDBLOCK) {
     } else {