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

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

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;
-- 
2.30.2