STDERR may actually get closed in ->ipc_atfork_child in
oneshot mode, so ensure we pass in a valid file handle
to avoid warnings ->wq_do.
$self->{env} = $env;
delete @$ret{qw(-lei_store cfg pgr lxs)}; # keep l2m
my @io = delete @$ret{0..2};
- $io[3] = delete($ret->{sock}) // *STDERR{GLOB};
+ $io[3] = delete($ret->{sock}) // $io[2];
my $l2m = $ret->{l2m};
if ($l2m && $l2m != $wq) { # $wq == lxs
$io[4] = $l2m->{-wq_s1} if $l2m->{-wq_s1};