2 use OpenAFS::CMU_copyright;
3 use OpenAFS::util qw(:DEFAULT %AFS_Help);
10 my ($wscell, $path, @pos1, @pos2, @neg1, @neg2, $ret, @tmp, @tmp2, @tmp3, $found);
12 $wscell = &AFS_fs_wscell();
15 eval { &AFS_pts_creategroup(group1,,,); };
16 $path = "/afs/${wscell}/service/acltest";
18 ($pos1, $neg1) = &AFS_fs_getacl($path);
19 $ret = &AFS_fs_setacl([$path],[["group1", "rl"]],,);
20 ($pos2, $neg2) = &AFS_fs_getacl($path);
21 while ($ret = pop(@$pos2)) {
23 if ($tmp2[0] eq "group1") {
31 while ($ret = pop(@$pos1)) {