my($srcrpm)=@_;
# print "$srcrpm\n";
if (-e "$srcrpm.mockfail"
- ||-e "$srcrpm$exta.mockfail") {
- die if -e "$srcrpm${extb}.mockfail";
+ ||-e "$srcrpm$exta.mockfail"
+ ||-e "$srcrpm$extb.mockfail") {
warn "mockfail: $srcrpm";
++$mockfail;
return;
my $all_sorted=shift @ARGV if ($ARGV[0]||"") eq "-a";
die ""
.$0.' [-r <rpmqafile>] [-a] {""|.dt.rpm|.dt5.rpm} {""|.dt.rpm|.dt5.rpm}'."\n"
- .$0.' "" .dt.rpm;'.$0.' .dt.rpm .dt5.rpm;'.$0.' "" .dt5.rpm'."\n"
+ .$0.' .dt.rpm "";'.$0.' .dt5.rpm .dt.rpm;'.$0.' .dt5.rpm ""'."\n"
if @ARGV!=2;
($exta,$extb)=@ARGV;
#my $allpkgs=readfile "dnf -C --disablerepo='*' --enablerepo=rawhide-source repoquery -a --arch src 2>/dev/null|";
out $_ for 0..$p-1;
out $_ for @sorted-$p..$#sorted;
}
-print "debuginfod download size: ";
-my $extasizetot=0;
-my $extbsizetot=0;
-for my $srcrpm (@srcrpms) {
- my $rpmsizes="$srcrpm.rpmsizes";
- -e $rpmsizes or (system "./debuginfosize $srcrpm" and die $srcrpm);
- -e $rpmsizes or die $srcrpm;
- my $f=readfile $rpmsizes;
- $f=~/^(\d+) (\d+)\n$/s;
- my $extasize=$1;
- my $extbsize=$2;
- $extasizetot+=$extasize;
- $extbsizetot+=$extbsize;
-}
-print "${exta}sizetot=$extasizetot ${extb}sizetot=$extbsizetot = ".sprintf("%.2f",$extasizetot/$extbsizetot*100)."%\n";
+#print "debuginfod download size: ";
+#my $extasizetot=0;
+#my $extbsizetot=0;
+#for my $srcrpm (@srcrpms) {
+# my $rpmsizes="$srcrpm.rpmsizes";
+# -e $rpmsizes or (system "./debuginfosize $srcrpm" and die $srcrpm);
+# -e $rpmsizes or die $srcrpm;
+# my $f=readfile $rpmsizes;
+# $f=~/^(\d+) (\d+)\n$/s;
+# my $extasize=$1;
+# my $extbsize=$2;
+# $extasizetot+=$extasize;
+# $extbsizetot+=$extbsize;
+#}
+#print "${exta}sizetot=$extasizetot ${extb}sizetot=$extbsizetot = ".sprintf("%.2f",$extasizetot/$extbsizetot*100)."%\n";
print "build time: ";
my $extatime=0;
my $extbtime=0;