if no matches at all are found. (Even with a small sample
I could find many sites where there are, umm, anomalies in
the said databases.)
p4raw-id: //depot/perl@10905
print "# max = $max, n = $n, perfect = ", scalar keys %perfect, "\n";
-if (keys %perfect < $n) {
+if (keys %perfect == 0) {
$max++;
print <<EOEX;
#
print "# max = $max, n = $n, perfect = ", scalar keys %perfect, "\n";
-if (keys %perfect < $n) {
+if (keys %perfect == 0) {
$max++;
print <<EOEX;
#