Relax the group and password tests back to moaning only
Jarkko Hietaniemi [Sun, 24 Jun 2001 19:43:25 +0000 (19:43 +0000)]
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

t/op/grent.t
t/op/pwent.t

index 3ef111d..b20c146 100755 (executable)
@@ -120,7 +120,7 @@ endgrent();
 
 print "# max = $max, n = $n, perfect = ", scalar keys %perfect, "\n";
 
-if (keys %perfect < $n) {
+if (keys %perfect == 0) {
     $max++;
     print <<EOEX;
 #
index 9b1a5b1..0d3c11b 100755 (executable)
@@ -123,7 +123,7 @@ endpwent();
 
 print "# max = $max, n = $n, perfect = ", scalar keys %perfect, "\n";
 
-if (keys %perfect < $n) {
+if (keys %perfect == 0) {
     $max++;
     print <<EOEX;
 #