From 859dd1196b93cb57765180b415b78b2f6dc3b322 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 20 Aug 2022 00:03:56 +0100
Subject: [PATCH] prefork-interp: fixes

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

diff --git a/perl/Prefork.pm b/perl/Prefork.pm
index 8b31d30..a89d449 100644
--- a/perl/Prefork.pm
+++ b/perl/Prefork.pm
@@ -203,6 +203,8 @@ sub initialisation_complete {
   
   # --- server(pm) [2] ----
 
+  local $0 = "$0 [server]";
+
   $fail_log = 1;
   open STDIN, "<&NULL" or fail_log("dup null onto stdin: $!");
   open STDOUT, ">&NULL" or fail_log("dup null onto stdout: $!");
@@ -213,8 +215,6 @@ sub initialisation_complete {
 
   my $errcount = 0;
 
-  local $0 = "$0 [server]";
-
   for (;;) {
     # reap children
     if (%children) {
-- 
2.30.2