diff options
| author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1996-05-01 01:55:44 +0000 |
|---|---|---|
| committer | Charles Bailey <bailey@genetics.upenn.edu> | 1996-05-01 01:55:44 +0000 |
| commit | 85fe63caf06a70056068c4de1c5c2c10de59ea84 (patch) | |
| tree | 4a5b48fe5463113b006c89f027720cce580a21e4 /t/op/groups.t | |
| parent | c85b29f874947d49f0c63e6760d1ff47993ea3fd (diff) | |
| download | perl-85fe63caf06a70056068c4de1c5c2c10de59ea84.tar.gz | |
Consider alternate location for system groups command
Diffstat (limited to 't/op/groups.t')
| -rwxr-xr-x | t/op/groups.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/op/groups.t b/t/op/groups.t index 4445953966..078689b1c6 100755 --- a/t/op/groups.t +++ b/t/op/groups.t @@ -1,6 +1,6 @@ #!./perl -if (! -x '/usr/ucb/groups') { +if (! -x ($groups = '/usr/ucb/groups') && ! -x ($groups = '/usr/bin/groups')) { print "1..0\n"; exit 0; } @@ -26,7 +26,7 @@ for (split(' ', $()) { $gr1 = join(' ', sort @gr); -$gr2 = join(' ', grep(!$basegroup{$_}++, sort split(' ',`/usr/ucb/groups`))); +$gr2 = join(' ', grep(!$basegroup{$_}++, sort split(' ',`$groups`))); if ($gr1 eq $gr2) { print "ok 1\n"; |