3 $ENV{'PATH'} = "/bin:/usr/ucb:/usr/bin:$ENV{'PATH'}";
5 $curgrp = (getgrgid($())[0];
6 foreach (split(/\s+/, `groups 2>/dev/null`)) {
7 $ok++, last if $_ eq $curgrp;
18 ($pwgnam) = getgrgid($pwgid);
19 @basegroup{$pwgid,$pwgnam} = (1,1);
23 for (split(' ', $()) {
25 ($group) = getgrgid($_);
34 $gr1 = join(' ', sort @gr);
36 $gr2 = join(' ', grep(!$basegroup{$_}++, sort split(' ',`groups`)));
42 print "#gr1 is <$gr1>\n";
43 print "#gr2 is <$gr2>\n";
47 # multiple 0's indicate GROUPSTYPE is currently long but should be short
49 if ($pwgid == 0 || $seen{0} < 2) {
53 print "not ok 2 (groupstype should be type short, not long)\n";