die [DIED, "Crash (SIG$signame)"] if $sig;
die [NZX, "Non-zero exit status: " . ($? >> 8)] if $?;
} else {
- $^F = 50;
- POSIX::close $_ for 0, 1, 3 .. $^F;
my @fds = exists $args{fds} ? @{$args{fds}} : ();
get_logger->trace("Running $basename with fds ". join ' ', @fds);
+ $^F = 50;
+ POSIX::close $_ for 0, 1, 3 .. $^F;
my $it = natatime 2, @fds;
while (my ($fd, $file) = $it->()) {
open my $fh, $file or die $!;