From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 19 Aug 2022 23:43:53 +0000 (+0100)
Subject: prefork-interp: fixes
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;ds=sidebyside;h=77cd01c69abf332e3368b33b75e0db61c849f7c5;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 0e2f03f..f70edd4 100644
--- a/perl/Prefork.pm
+++ b/perl/Prefork.pm
@@ -200,6 +200,7 @@ sub initialisation_complete {
     local $0 = "$0 [monitor(init)]";
     return become_monitor();
   }
+  close CALL;
 
   our %children;
   $children{$child} = 1;