diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-04-17 19:54:49 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-04-17 19:54:49 +0000 |
| commit | 04333ffaffc1418007ebe7cddbeaba6233772d93 (patch) | |
| tree | 56f97a41dcf055ca4a7638d1f98d05a080a130a5 /t/op/groups.t | |
| parent | 872a3cb370ab7afd96b68b7e0a09e0e7670570ad (diff) | |
| download | perl-04333ffaffc1418007ebe7cddbeaba6233772d93.tar.gz | |
Adjust test for groups that appear multiple times on Cygwin
p4raw-id: //depot/perl@15977
Diffstat (limited to 't/op/groups.t')
| -rwxr-xr-x | t/op/groups.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/op/groups.t b/t/op/groups.t index 77dbb2b296..695f989753 100755 --- a/t/op/groups.t +++ b/t/op/groups.t @@ -121,8 +121,8 @@ $seen{$pwgid}++; print "# pwgid = $pwgid, pwgnam = $pwgnam\n"; for (split(' ', $()) { - next if $seen{$_}++; ($group) = getgrgid($_); + next if (! defined $group or ! grep { $_ eq $group } @gr) and $seen{$_}++; if (defined $group) { push(@gr, $group); } @@ -133,7 +133,7 @@ for (split(' ', $()) { print "# gr = @gr\n"; -if ($^O =~ /^(?:uwin|solaris)$/) { +if ($^O =~ /^(?:uwin|cygwin|solaris)$/) { # Or anybody else who can have spaces in group names. $gr1 = join(' ', grep(!$did{$_}++, sort split(' ', join(' ', @gr)))); } else { |