From 4f306c7baacb6c7bf261a67ee622651d6a61cc4d Mon Sep 17 00:00:00 2001
From: "Andreas J. Koenig" <k@k75.(none)>
Date: Sat, 1 Nov 2008 22:03:01 +0100
Subject: [PATCH] add a status line before displaying the --solve results

---
 TODO                            |  5 +++++
 lib/CPAN/Testers/ParseReport.pm | 10 ++++++++--
 2 files changed, 13 insertions(+), 2 deletions(-)

diff --git a/TODO b/TODO
index b4c8702..38b2607 100644
--- a/TODO
+++ b/TODO
@@ -1,3 +1,8 @@
+2008-10-30  Andreas J. Koenig  <andreas.koenig.7os6VVqR@franz.ak.mind.de>
+
+	* Bug: FileArchiveIndexer produced not a singel result for --solve. In
+	such a case we must write a word about the nothingness. DONE
+
 2008-10-02  Andreas J. Koenig  <andreas.koenig.7os6VVqR@franz.ak.mind.de>
 
 	* upload as bz2
diff --git a/lib/CPAN/Testers/ParseReport.pm b/lib/CPAN/Testers/ParseReport.pm
index d3ca5f8..8ab65a8 100644
--- a/lib/CPAN/Testers/ParseReport.pm
+++ b/lib/CPAN/Testers/ParseReport.pm
@@ -8,7 +8,7 @@ use File::Basename qw(basename);
 use File::Path qw(mkpath);
 use HTML::Entities qw(decode_entities);
 use LWP::UserAgent;
-use List::Util qw(max sum);
+use List::Util qw(max min sum);
 use Time::Local ();
 use XML::LibXML;
 use XML::LibXML::XPathContext;
@@ -817,8 +817,14 @@ sub solve {
             push @regression, $reg;
         }
     }
-    my $top = $Opt{solvetop} || 3;
+    my $top = min ($Opt{solvetop} || 3, scalar @regression);
     my $score = 0;
+    printf
+        (
+         "State after regression testing: %d results, showing top %d\n\n",
+         scalar @regression,
+         $top,
+        );
     for my $reg (sort {$b->rsq <=> $a->rsq} @regression) {
         printf "(%d)\n", ++$score;
         $reg->print;
-- 
2.11.4.GIT