X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?a=blobdiff_plain;f=perl%2FPrefork.pm;h=28fe3958df65686d2683223278efcb29ba399494;hb=0c429d829dbf2f846ab5567cb3c9cbb9bef02b97;hp=8de4aaf314d266b2583005d7ddcb4e7114a07d13;hpb=6a7fad24b01692f58efb667aab9187af1b138dd0;p=chiark-utils.git

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