++$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;
} 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) {
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;