diff options
| author | Mark Dickinson <dickins3@fas.harvard.edu> | 2000-08-02 09:25:07 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-04 01:18:18 +0000 |
| commit | a941e390df32e52f20b358866941870e9b6bfc90 (patch) | |
| tree | ba9207d3e207a4c53a9e6cb1a18664fa5679c318 /t/op | |
| parent | 6f90c1b86bf15188cff8a2b2b0e2d33819c5a71b (diff) | |
| download | perl-a941e390df32e52f20b358866941870e9b6bfc90.tar.gz | |
[ID 20000802.004] Tests op/grent.t and op/pwent.t fail unnecessarily
Message-Id: <Pine.OSF.4.10.10008021321380.32190-200000@is07.fas.harvard.edu>
p4raw-id: //depot/perl@6513
Diffstat (limited to 't/op')
| -rwxr-xr-x | t/op/grent.t | 3 | ||||
| -rwxr-xr-x | t/op/pwent.t | 3 |
2 files changed, 4 insertions, 2 deletions
diff --git a/t/op/grent.t b/t/op/grent.t index d4b0e8757d..f2b5b9cabd 100755 --- a/t/op/grent.t +++ b/t/op/grent.t @@ -70,7 +70,8 @@ my %seen; setgrent(); while (<GR>) { chomp; - my @s = split /:/; + # LIMIT -1 so that groups with no users don't fall off + my @s = split /:/, $_, -1; my ($name_s,$passwd_s,$gid_s,$members_s) = @s; if (@s) { push @{ $seen{$name_s} }, $.; diff --git a/t/op/pwent.t b/t/op/pwent.t index 0f67eb4287..c09d7c2405 100755 --- a/t/op/pwent.t +++ b/t/op/pwent.t @@ -71,7 +71,8 @@ my %seen; setpwent(); while (<PW>) { chomp; - my @s = split /:/; + # LIMIT -1 so that users with empty shells don't fall off + my @s = split /:/, $_, -1; my ($name_s, $passwd_s, $uid_s, $gid_s, $gcos_s, $home_s, $shell_s) = @s; next if /^\+/; # ignore NIS includes if (@s) { |