From: Dominic Dunlop <domo@computer.org>
Date: Tue, 27 Oct 1998 20:47:25 +0000 (+0200)
Subject: Re: perl5.004_04 testing problem
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b9416812b7330d57b47d469866c91cac87d6391b;p=p5sagit%2Fp5-mst-13.2.git

Re: perl5.004_04 testing problem
Message-ID: <MLIST_v03110700b25b7dc95bbc@[212.24.192.87]>

p4raw-id: //depot/cfgperl@2103
---

diff --git a/t/op/groups.t b/t/op/groups.t
index 97a4105..55cf4de 100755
--- a/t/op/groups.t
+++ b/t/op/groups.t
@@ -1,12 +1,8 @@
 #!./perl
 
-if (! -x ($groups = '/usr/ucb/groups')	&&
-    ! -x ($groups = '/usr/bin/groups')	&&
-    ! -x ($groups = '/bin/groups')	&&
-    ! -x ($groups = '/usr/bin/id')	&&
-    ! -x ($groups = '/bin/id')		&&
-    ! -x ($groups = '/usr/xpg4/bin/id')
-) {
+$ENV{PATH} = '/bin:/usr/bin:/usr/ucb:/usr/xpg4/bin';
+
+unless (($groups = `(id -Gn || groups) 2>/dev/null`) ne '') {
     print "1..0\n";
     exit 0;
 }
@@ -30,15 +26,13 @@ for (split(' ', $()) {
     }
 } 
 
-if ($^O eq "uwin") {
+if ($^O eq "uwin") { # Or anybody else who can have spaces in group names.
 	$gr1 = join(' ', grep(!$did{$_}++, sort split(' ', join(' ', @gr))));
 } else {
 	$gr1 = join(' ', sort @gr);
 }
 
-$groups .= ' -Gn' if $groups =~ m:/id$:;
-
-$gr2 = join(' ', grep(!$basegroup{$_}++, sort split(' ',`$groups`)));
+$gr2 = join(' ', grep(!$basegroup{$_}++, sort split(' ',$groups)));
 
 if ($gr1 eq $gr2) {
     print "ok 1\n";