last unless @problems;
for my $problem (@problems) {
print "Problem $problem->{id}/".@problems.":\n";
- my $r = $problem->findproblemrule();
- my $ri = $r->info();
- print $ri->problemstr()."\n";
+ print $problem->str()."\n";
my @solutions = $problem->solutions();
for my $solution (@solutions) {
print " Solution $solution->{id}:\n";
exit(1) if $yn eq 'n' || $yn eq 'q';
}
-my @newpkgs = $trans->newpackages();
+my @newpkgs = $trans->newsolvables();
my %newpkgsfps;
if (@newpkgs) {
my $downloadsize = 0;