summaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2001-06-24 19:43:25 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2001-06-24 19:43:25 +0000
commit13280709f35de7368a60751961ed524221ca433a (patch)
tree7263cbd1d7e80fa691d23314ec57f8315f577015 /t
parent4b5a0d1cdb4affefef97f05409e2eedd7d644970 (diff)
downloadperl-13280709f35de7368a60751961ed524221ca433a.tar.gz
Relax the group and password tests back to moaning only
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
Diffstat (limited to 't')
-rwxr-xr-xt/op/grent.t2
-rwxr-xr-xt/op/pwent.t2
2 files changed, 2 insertions, 2 deletions
diff --git a/t/op/grent.t b/t/op/grent.t
index 3ef111d330..b20c146c6a 100755
--- 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 < $n) {
+if (keys %perfect == 0) {
$max++;
print <<EOEX;
#
diff --git a/t/op/pwent.t b/t/op/pwent.t
index 9b1a5b1838..0d3c11bde6 100755
--- 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 < $n) {
+if (keys %perfect == 0) {
$max++;
print <<EOEX;
#