From: Paul Holser <Paul.Holser.pholser@nortelnetworks.com>
Date: Wed, 30 Dec 1998 15:16:12 +0000 (-0600)
Subject: op/groups.t fails test 1 on HP-UX 10.20
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=702a0e5af49b9c87bf7eac521e79a4602d54e0c4;p=p5sagit%2Fp5-mst-13.2.git

op/groups.t fails test 1 on HP-UX 10.20

To: perlbug@perl.com
Message-Id: <199812302116.PAA12439@crchh44c.us.nortel.com>

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

diff --git a/t/op/groups.t b/t/op/groups.t
index 78a748f..8d5689e 100755
--- a/t/op/groups.t
+++ b/t/op/groups.t
@@ -11,6 +11,7 @@ $ENV{PATH} = '/bin:/usr/bin:/usr/xpg4/bin:/usr/ucb';
 # Beware 2: id -Gn or id -a format might be id(name) or name(id).
 # Beware 3: the groups= might be anywhere in the id output.
 # Beware 4: groups can have spaces ('id -a' being the only defense against this)
+# Beware 5: id -a might not contain the groups= part.
 #
 # That is, we might meet the following:
 #
@@ -28,7 +29,7 @@ GROUPS: {
     if (($groups = `id -a 2>/dev/null`) ne '') {
 	# $groups is of the form:
 	# uid=39957(gsar) gid=22(users) groups=33536,39181,22(users),0(root),1067(dev)
-	last GROUPS;
+	last GROUPS if $groups =~ /groups=/;
     }
     if (($groups = `id -Gn 2>/dev/null`) ne '') {
 	# $groups could be of the form: