+my $unbuilt=0;
+for my $srcrpm (keys(%allpkgs)) {
+ next if $allpkgs{$srcrpm}>1;
+ warn "unbuilt: $srcrpm\n";
+ ++$unbuilt;
+}
+$allpkgs=~tr/\n//cd;
+die if length($allpkgs)!=keys(%allpkgs);
+$allpkgs=keys(%allpkgs);
+die if $allpkgs!=$done+$mockfail+$dtmockfail+$unbuilt;
+print "extras=$extras; unbuilt=$unbuilt; done=$done + mockfail=$mockfail + dtmockfail=$dtmockfail = ".($done+$mockfail+$dtmockfail)." all=$allpkgs processed=".(($done+$mockfail+$dtmockfail)/$allpkgs*100)."%\n";