perl 4.0 patch 6: patch #4, continued

[perl5.git] / t / op / groups.t

diff --git a/t/op/groups.t b/t/op/groups.t
index 73ec3a0..f8cb4ca 100644 (file)
--- a/t/op/groups.t
+++ b/t/op/groups.t
@@ -9,10 +9,16 @@ print "1..1\n";
 
 for (split(' ', $()) {
     next if $seen{$_}++;
-    push(@gr, (getgrgid($_))[0]); 
+    ($group) = getgrgid($_);
+    if (defined $group) {
+       push(@gr, $group);
+    }
+    else {
+       push(@gr, $_);
+    }
 } 
 $gr1 = join(' ',sort @gr);
-$gr2 = join(' ', sort split(' ',`groups`));
+$gr2 = join(' ', sort split(' ',`/usr/ucb/groups`));
 #print "gr1 is <$gr1>\n";
 #print "gr2 is <$gr2>\n";
 print +($gr1 eq $gr2) ? "ok 1\n" : "not ok 1\n";