X-Git-Url: https://git.jankratochvil.net/?p=massrebuild.git;a=blobdiff_plain;f=stat;h=fcd9b3f0ee17784bac4935ff0e346f32331f94fb;hp=4972065eb81b25da51bacb6bb2904a93b2fb6b21;hb=31426aec597e2f7b21d990368819e5091fdcc5c5;hpb=730ebcb42a8973b5bec3de0fbbe5c362b088378d

diff --git a/stat b/stat
index 4972065..fcd9b3f 100755
--- a/stat
+++ b/stat
@@ -46,6 +46,15 @@ sub onesrcrpm($) {
     ++$mockfail;
     return;
   }
+  if (-e "$srcrpm.bsmockfail"
+    ||-e "$srcrpm.bsmockefail"
+    ||-e "$srcrpm.dt.rpm.bsmockfail"
+    ||-e "$srcrpm.dt.rpm.bsmockefail"
+    ) {
+    warn "bsmock(|e)fail: $srcrpm";
+    ++$mockfail;
+    return;
+  }
   if (-e "$srcrpm.dt.rpm.mockfail") {
     warn "dtmockfail: $srcrpm";
     ++$dtmockfail;
@@ -72,7 +81,7 @@ sub onesrcrpm($) {
   } else {
     ++$equalbyfile;
   }
-  push @{$filestat{$dwzfilesize/$dtfilesize}},"$srcrpm dwzfilesize=$dwzfilesize dtfilesize=$dtfilesize" if $dtfilesize;
+  push @{$filestat{$dwzfilesize-$dtfilesize}},sprintf("%.2f",100*$dwzfilesize/$dtfilesize).": $srcrpm dwzfilesize=$dwzfilesize dtfilesize=$dtfilesize" if $dtfilesize;
   if ($dwzrpmsize==0&&$dtrpmsize==0) {
     ++$emptybyrpm;
   } elsif ($dwzrpmsize<$dtrpmsize) {
@@ -130,20 +139,17 @@ print "dwzwinbyrpm =$dwzwinbyrpm" ." dtwinbyrpm =$dtwinbyrpm" ." equalbyrpm =$eq
 print "dwzfilesizetot=$dwzfilesizetot"." dtfilesizetot=$dtfilesizetot"." = ".($dwzfilesizetot/$dtfilesizetot*100)."%\n";
 print " dwzrpmsizetot=$dwzrpmsizetot" ."  dtrpmsizetot=$dtrpmsizetot" ." = ".( $dwzrpmsizetot/ $dtrpmsizetot*100)."%\n";
 #print "equal: $_\n" for @{$filestat{1}};
-my @sorted=map({ my $r=$_; map(($_,$r),@{$filestat{$_}}); } sort {$a<=>$b;} keys %filestat);
+my @sorted=map @{$filestat{$_}},sort {$a<=>$b;} keys(%filestat);
 sub out($) {
   my($ix)=@_;
-  my $name=$sorted[2*$ix+0];
-  my $ratio=$sorted[2*$ix+1];
-  print(sprintf("%.2f",$ratio*100)."%: $name\n");
+  print($sorted[$ix]."\n");
 }
-my $sorted=@sorted/2;
 if (@ARGV) {
-  out $_ for 0..$sorted-1;
+  out $_ for 0..$#sorted;
 } else {
   my $p=5;
   out $_ for 0..$p-1;
-  out $_ for $sorted-$p..$sorted-1;
+  out $_ for @sorted-$p..$#sorted;
 }
 print "debuginfod download size: ";
 my $dwzsizetot=0;