$child = fork // croak "second fork failed: $!";
if (!$child) {
# we are the child, i.e. the one fa-monitor
+ local $0 = "$0 [monitor(init)]";
return become_monitor();
}
my $errcount = 0;
+ local $0 = "$0 [server]";
+
for (;;) {
# reap children
if (%children) {
$child = fork // fail_log("fork for accepted call failed: $!");
if (!$child) {
#---- monitor [1] ----
+ local $0 = "$0 [monitor]";
become_monitor();
}
close(CALL);