Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
our @call_fds;
our $socket_path;
+our $fail_log = 0;
sub fail_log ($) {
my ($m) = @_;
- syslog(LOG_ERR, "$0: prefork [$$]: error: $m");
+ if ($fail_log) {
+ syslog(LOG_ERR, "$0: prefork [$$]: error: $m");
+ } else {
+ croak "$0: prefork: initialisation error: $m";
+ }
_exit 127;
}
# --- server(pm) [2] ----
+ $fail_log = 1;
setsid() > 0 or fail_log("setsid: $!");
open STDIN, "<&NULL" or fail_log("dup null onto stdin: $!");
open STDOUT, ">&NULL" or fail_log("dup null onto stdout: $!");