else { push @{$count->{'unknown'}}, $zone; };
delete $threads{$zone};
}
- sleep(1) unless scalar keys %threads == 0;
+ # print STDERR "foo #threads:", (scalar keys %threads), ":", join(",", keys %threads),"\n";
+ last if scalar keys %threads == 0;
+ sleep 1;
}
for my $zone (sort {$a cmp $b} keys %threads) {
push @{$count->{'warn'}}, $zone;