Be even more relaxed (re-allow having only one entry).

p4raw-id: //depot/perl@10944

diff --git a/t/op/grent.t b/t/op/grent.t
index b20c146..68569e9 100755 (executable)
--- a/t/op/grent.t
+++ b/t/op/grent.t
@@ -120,7 +120,7 @@ endgrent();
 
 print "# max = $max, n = $n, perfect = ", scalar keys %perfect, "\n";
 
-if (keys %perfect == 0) {
+if (keys %perfect == 0 && $n) {
     $max++;
     print <<EOEX;
 #

diff --git a/t/op/pwent.t b/t/op/pwent.t
index 0d3c11b..fc71f57 100755 (executable)
--- a/t/op/pwent.t
+++ b/t/op/pwent.t
@@ -123,7 +123,7 @@ endpwent();
 
 print "# max = $max, n = $n, perfect = ", scalar keys %perfect, "\n";
 
-if (keys %perfect == 0) {
+if (keys %perfect == 0 && $n) {
     $max++;
     print <<EOEX;
 #