From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 19 Aug 2022 23:03:56 +0000 (+0100)
Subject: prefork-interp: fixes
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=859dd1196b93cb57765180b415b78b2f6dc3b322;p=chiark-utils.git

prefork-interp: fixes

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

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) {