From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 11 Aug 2022 20:22:23 +0000 (+0100)
Subject: prefork-interp: fixes and tests
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=chiark-utils.git;a=commitdiff_plain;h=0c429d829dbf2f846ab5567cb3c9cbb9bef02b97

prefork-interp: fixes and tests

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

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");