Be even more relaxed (re-allow having only one entry).
authorJarkko Hietaniemi <jhi@iki.fi>
Tue, 26 Jun 2001 01:12:39 +0000 (01:12 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Tue, 26 Jun 2001 01:12:39 +0000 (01:12 +0000)
p4raw-id: //depot/perl@10944

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

index b20c146..68569e9 100755 (executable)
@@ -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;
 #
index 0d3c11b..fc71f57 100755 (executable)
@@ -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;
 #