[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

diff --git a/t/op/grent.t b/t/op/grent.t
index d4b0e87..f2b5b9c 100755 (executable)
--- 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 0f67eb4..c09d7c2 100755 (executable)
--- 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) {