prefork-interp: Fix a fail_log

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

diff --git a/perl/Prefork.pm b/perl/Prefork.pm
index b07a2e7232f894258f61003198283004dd4c78ea..b3c3acb4f8e3e2f498637831f4468ae22c18c026 100644 (file)
--- a/perl/Prefork.pm
+++ b/perl/Prefork.pm
@@ -36,7 +36,7 @@ sub server_quit ($) {
 
 # Returns in the executor process
 sub become_monitor () {
-  my $child = fork // fail("fork executor: $!");
+  my $child = fork // fail_log("fork executor: $!");
   if (!$child) {
     #---- executor ----
     open ::STDIN , "<& $call_fds[0]" or fail_log("dup for fd0");