my $all_sorted=shift @ARGV if ($ARGV[0]||"") eq "-a";
die ""
.$0.' [-r <rpmqafile>] [-a] {""|.dt.rpm|.dt5.rpm} {""|.dt.rpm|.dt5.rpm}'."\n"
my $all_sorted=shift @ARGV if ($ARGV[0]||"") eq "-a";
die ""
.$0.' [-r <rpmqafile>] [-a] {""|.dt.rpm|.dt5.rpm} {""|.dt.rpm|.dt5.rpm}'."\n"