diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-24 19:43:25 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-24 19:43:25 +0000 |
commit | 13280709f35de7368a60751961ed524221ca433a (patch) | |
tree | 7263cbd1d7e80fa691d23314ec57f8315f577015 /t | |
parent | 4b5a0d1cdb4affefef97f05409e2eedd7d644970 (diff) | |
download | perl-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-x | t/op/grent.t | 2 | ||||
-rwxr-xr-x | t/op/pwent.t | 2 |
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; # |