# Returns in the executor process
sub become_monitor () {
close LISTEN;
+ close WATCHI;
+ close WATCHE;
# Make a process group for this call
setpgrp or fail_log("setpgrp failed: $!");
}
open LISTEN, "+>&=$env_fds[0]" or croak "listen fd: $!";
open CALL, "+>&=$env_fds[1]" or croak "call fd: $!";
- open WATCHE, ">+&=$env_fds[3]" or croak "watch stderr fd: $!";
+ open WATCHI, "+>&=$env_fds[2]" or croak "call fd: $!";
+ open WATCHE, "+>&=$env_fds[3]" or croak "watch stderr fd: $!";
if (!$opts{no_openlog}) {
openlog("prefork-interp $0", 'ndelay,nofatal,pid',