prefork-interp: fixes

[chiark-utils.git] / perl / Prefork.pm

diff --git a/perl/Prefork.pm b/perl/Prefork.pm
index 0e2f03f85502585b9aa3db6b1b10de59a0675eb0..f70edd451dfddad805d601ae1407b366aa8b17e4 100644 (file)
--- 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;