prefork-interp: fixes and tests

[chiark-utils.git] / perl / Prefork.pm

diff --git a/perl/Prefork.pm b/perl/Prefork.pm
index 8de4aaf314d266b2583005d7ddcb4e7114a07d13..28fe3958df65686d2683223278efcb29ba399494 100644 (file)
--- 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");