3 $ENV{PATH} = '/usr/xpg4/bin:/bin:/usr/bin:/usr/ucb';
5 unless (($groups = `(id -Gn || groups) 2>/dev/null`) ne '') {
13 ($pwgnam) = getgrgid($pwgid);
14 @basegroup{$pwgid,$pwgnam} = (1,1);
18 for (split(' ', $()) {
20 ($group) = getgrgid($_);
29 if ($^O eq "uwin") { # Or anybody else who can have spaces in group names.
30 $gr1 = join(' ', grep(!$did{$_}++, sort split(' ', join(' ', @gr))));
32 $gr1 = join(' ', sort @gr);
35 $gr2 = join(' ', grep(!$basegroup{$_}++, sort split(' ',$groups)));
41 print "#gr1 is <$gr1>\n";
42 print "#gr2 is <$gr2>\n";
46 # multiple 0's indicate GROUPSTYPE is currently long but should be short
48 if ($pwgid == 0 || $seen{0} < 2) {
52 print "not ok 2 (groupstype should be type short, not long)\n";