diff options
| author | Paul Holser <Paul.Holser.pholser@nortelnetworks.com> | 1998-12-30 09:16:12 -0600 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-01-01 13:54:16 +0000 |
| commit | 702a0e5af49b9c87bf7eac521e79a4602d54e0c4 (patch) | |
| tree | 09e5989589f2ecce8c6a3edb6b8fd4807560e448 | |
| parent | 68c734842396ee490e3f1243c6050bbadc602253 (diff) | |
| download | perl-702a0e5af49b9c87bf7eac521e79a4602d54e0c4.tar.gz | |
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
| -rwxr-xr-x | t/op/groups.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/t/op/groups.t b/t/op/groups.t index 78a748fddd..8d5689ec62 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: |