git://git.jankratochvil.net
/
massrebuild.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
stat: +*.mockfail,+*.mockefail
[massrebuild.git]
/
stat
diff --git
a/stat
b/stat
index
4972065
..
fcd9b3f
100755
(executable)
--- a/
stat
+++ b/
stat
@@
-46,6
+46,15
@@
sub onesrcrpm($) {
++$mockfail;
return;
}
++$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;
if (-e "$srcrpm.dt.rpm.mockfail") {
warn "dtmockfail: $srcrpm";
++$dtmockfail;
@@
-72,7
+81,7
@@
sub onesrcrpm($) {
} else {
++$equalbyfile;
}
} 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) {
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}};
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)=@_;
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) {
if (@ARGV) {
- out $_ for 0..$
sorted-1
;
+ out $_ for 0..$
#sorted
;
} else {
my $p=5;
out $_ for 0..$p-1;
} 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;
}
print "debuginfod download size: ";
my $dwzsizetot=0;