diff options
| author | Anton Berezin <tobez@tobez.org> | 2006-12-12 20:59:38 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-12-13 10:40:36 +0000 |
| commit | 7b75a55b6ed321d45dd8a2bb65f2bb2a846904d2 (patch) | |
| tree | 348190f79c7b4942245665dd113109ff07dfd3e0 /t/op/groups.t | |
| parent | b62d801f01715ac7b768724578045becb058e358 (diff) | |
| download | perl-7b75a55b6ed321d45dd8a2bb65f2bb2a846904d2.tar.gz | |
t/op/groups.t: prevent failure on modern FreeBSDs
Message-ID: <20061212185938.GB49084@heechee.tobez.org>
p4raw-id: //depot/perl@29546
Diffstat (limited to 't/op/groups.t')
| -rwxr-xr-x | t/op/groups.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/t/op/groups.t b/t/op/groups.t index faaf7dd460..f682f610d1 100755 --- a/t/op/groups.t +++ b/t/op/groups.t @@ -56,6 +56,8 @@ 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) + # FreeBSD since 6.2 has a fake id -a: + # uid=1001(tobez) gid=20(staff) groups=20(staff), 0(wheel), 68(dialer) last GROUPS if $groups =~ /groups=/; } if (($groups = `id -Gn 2>/dev/null`) ne '') { @@ -90,7 +92,7 @@ print "# groups = $groups\n"; # That is: do not \w, do not \S. if ($groups =~ /groups=(.+)( [ug]id=|$)/) { my $gr = $1; - my @g0 = split /,/, $gr; + my @g0 = split /, ?/, $gr; my @g1; # prefer names over numbers for (@g0) { |