From: Perl 5 Porters <perl5-porters@africa.nicoh.com>
Date: Wed, 1 May 1996 01:55:44 +0000 (+0000)
Subject: Consider alternate location for system groups command
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=85fe63caf06a70056068c4de1c5c2c10de59ea84;p=p5sagit%2Fp5-mst-13.2.git

Consider alternate location for system groups command
---

diff --git a/t/op/groups.t b/t/op/groups.t
index 4445953..078689b 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";