From 1c515e4c4c08472739418b703ddb5b2022795671 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 19 Aug 2022 22:47:11 +0100
Subject: [PATCH] prefork-interp: adjust $0

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 perl/Prefork.pm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/perl/Prefork.pm b/perl/Prefork.pm
index f740251..b671ef1 100644
--- a/perl/Prefork.pm
+++ b/perl/Prefork.pm
@@ -171,6 +171,7 @@ sub initialisation_complete {
   $child = fork // croak "second fork failed: $!";
   if (!$child) {
     # we are the child, i.e. the one fa-monitor
+    local $0 = "$0 [monitor(init)]";
     return become_monitor();
   }
 
@@ -195,6 +196,8 @@ sub initialisation_complete {
 
   my $errcount = 0;
 
+  local $0 = "$0 [server]";
+
   for (;;) {
     # reap children
     if (%children) {
@@ -239,6 +242,7 @@ sub initialisation_complete {
       $child = fork // fail_log("fork for accepted call failed: $!");
       if (!$child) {
 	#---- monitor [1] ----
+	local $0 = "$0 [monitor]";
 	become_monitor();
       }
       close(CALL);
-- 
2.30.2