prefork-interp: fixes

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

diff --git a/perl/Prefork.pm b/perl/Prefork.pm
index 8b31d300bf397b1bc065786e485c11d8fadb9869..a89d449e43c550579c87bee4ea533fe97b1559d6 100644 (file)
--- 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) {