prefork-interp: fixes

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

diff --git a/perl/Prefork.pm b/perl/Prefork.pm
index 466b2a9cee50b537ca6cec35d1b6788cf573f0c1..0e2f03f85502585b9aa3db6b1b10de59a0675eb0 100644 (file)
--- a/perl/Prefork.pm
+++ b/perl/Prefork.pm
@@ -271,7 +271,7 @@ sub initialisation_complete {
       if (!$child) {
        #---- monitor [1] ----
        local $0 = "$0 [monitor]";
-       become_monitor();
+       return become_monitor();
       }
       close(CALL);
       $errcount = 0;