From 0c429d829dbf2f846ab5567cb3c9cbb9bef02b97 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 11 Aug 2022 21:22:23 +0100
Subject: [PATCH] prefork-interp: fixes and tests

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

diff --git a/perl/Prefork.pm b/perl/Prefork.pm
index 8de4aaf..28fe395 100644
--- a/perl/Prefork.pm
+++ b/perl/Prefork.pm
@@ -16,6 +16,13 @@ our $env_name = 'PREFORK_INTERP';
 our @call_fds;
 our $socket_path;
 
+sub fail ($) {
+  my ($m) = @_;
+  print STDERR "$0: prefork [$$]: $m\n";
+  flush STDERR;
+  _exit 127;
+}
+
 sub server_quit ($) {
   my ($m) = @_;
   syslog(LOG_INFO, "$0 prefork [$$]: $m, quitting");
-- 
2.30.2