From 1a2ae6b37fd2d9ae9949297177113191cbab565e Mon Sep 17 00:00:00 2001
From: Michael Schroeder <mls@suse.de>
Date: Thu, 23 May 2024 15:00:49 +0200
Subject: [PATCH] [backend] BSServer: log server processes that died by a
 signal

---
 src/backend/BSServer.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/backend/BSServer.pm b/src/backend/BSServer.pm
index 5491be258b3..060685392b3 100644
--- a/src/backend/BSServer.pm
+++ b/src/backend/BSServer.pm
@@ -448,6 +448,7 @@ sub server {
       last unless $pid > 0;
       my $slot = delete $chld{$pid};
       $slot = delete $chld2{$pid} unless defined $slot;
+      printf("Child %d died from signal %d\n", $pid, $? & 127) if $? & 127;
       if (defined($slot)) {
         if ($serverstatus_ok && defined(sysseek(STA, $slot * 256, Fcntl::SEEK_SET))) {
 	  syswrite(STA, "\0" x 256, 256);