Searched refs:gr2 (Results 1 - 2 of 2) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/
H A Dgroups.t148 $gr2 = join(' ', grep(!$basegroup{$_}++, sort split(' ',$groups)));
151 if ($gr1 eq $gr2 || ($gr1 eq '' && $gr2 eq $pwgid)) {
158 $gr2 = join(' ', grep(!$basegroup{$_}++, sort split(' ',$groups)));
159 if ($gr1 eq $gr2 || ($gr1 eq '' && $gr2 eq $pwgid)) {
166 print "#gr2 is <$gr2>\n";
H A Dgrent.t176 my @gr2;
182 push @gr2, $gr;
186 is("@gr1", "@gr2");

Completed in 19 milliseconds