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;
shift;
}
my $all_sorted=shift @ARGV if ($ARGV[0]||"") eq "-a";
-die $0.' [-r <rpmqafile>] [-a] {""|.dt.rpm|.dt5.rpm} {""|.dt.rpm|.dt5.rpm}' if @ARGV!=2;
+die ""
+ .$0.' [-r <rpmqafile>] [-a] {""|.dt.rpm|.dt5.rpm} {""|.dt.rpm|.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|";
my $allpkgs=readfile "all";