Change 12572 by jhi@alpha on 2001/10/22 18:49:32
A user might belong to only a single group and that
group might not be registered.
Affected files ...
... //depot/perl/t/op/groups.t#24 edit
Differences ...
==== //depot/perl/t/op/groups.t#24 (xtext) ====
Index: perl/t/op/groups.t
--- perl/t/op/groups.t.~1~ Mon Oct 22 13:00:05 2001
+++ perl/t/op/groups.t Mon Oct 22 13:00:05 2001
@@ -70,6 +70,10 @@
exit 0;
}
+chomp($groups);
+
+print "# groups = $groups\n";
+
# Remember that group names can contain whitespace, '-', et cetera.
# That is: do not \w, do not \S.
if ($groups =~ /groups=(.+)( [ug]id=|$)/) {
@@ -107,6 +111,8 @@
}
$seen{$pwgid}++;
+print "# pwgid = $pwgid, pwgnam = $pwgnam\n";
+
for (split(' ', $()) {
next if $seen{$_}++;
($group) = getgrgid($_);
@@ -118,6 +124,8 @@
}
}
+print "# gr = @gr\n";
+
if ($^O =~ /^(?:uwin|solaris)$/) {
# Or anybody else who can have spaces in group names.
$gr1 = join(' ', grep(!$did{$_}++, sort split(' ', join(' ', @gr))));
@@ -127,7 +135,7 @@
$gr2 = join(' ', grep(!$basegroup{$_}++, sort split(' ',$groups)));
-if ($gr1 eq $gr2) {
+if ($gr1 eq $gr2 || ($gr1 eq '' && $gr2 eq $pwgid)) {
print "ok 1\n";
}
else {
End of Patch.
