our $file;
our $count;
our $batch=0;
+ our $total=0;
our @tasks;
my @freecpus = qw('"$cpus"');
push @tasks, [ $pid, $cpu, $batch ];
$batch++;
$file = undef;
+ $total += $count;
$count = 0;
}
STDIN->error and die $!;
complete_batch();
await_task while @tasks;
- print STDERR "check happy all done\n";
+ print STDERR "check exiting (total=$total)\n";
'