[ID 20000802.004] Tests op/grent.t and op/pwent.t fail unnecessarily
authorMark Dickinson <dickins3@fas.harvard.edu>
Wed, 2 Aug 2000 13:25:07 +0000 (09:25 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 4 Aug 2000 01:18:18 +0000 (01:18 +0000)
Message-Id: <Pine.OSF.4.10.10008021321380.32190-200000@is07.fas.harvard.edu>

p4raw-id: //depot/perl@6513

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

index d4b0e87..f2b5b9c 100755 (executable)
@@ -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} }, $.;
index 0f67eb4..c09d7c2 100755 (executable)
@@ -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) {