prefork-interp: fixes

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

diff --git a/perl/Prefork.pm b/perl/Prefork.pm
index d41d72f5563a80a16e6699a507a9fd80c621f2af..8b31d300bf397b1bc065786e485c11d8fadb9869 100644 (file)
--- a/perl/Prefork.pm
+++ b/perl/Prefork.pm
@@ -25,7 +25,7 @@ sub fail_log ($) {
   if ($fail_log) {
     syslog(LOG_ERR, "$0: prefork [$$]: error: $m");
   } else {
-    croak "$0: prefork: initialisation error: $m";
+    carp "$0: prefork: initialisation error: $m";
   }
   _exit 127;
 }