diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1999-05-28 08:11:48 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-05-28 16:48:39 +0000 |
| commit | 4435c47799d17bebb53fa0fbe063f550be95a17c (patch) | |
| tree | 2db6065ebdcf42b856fb5cab44420ed8dade15f2 /t/op/groups.t | |
| parent | e824fb2c869ac05c8b4bf94a03f1e1121a0963c7 (diff) | |
| download | perl-4435c47799d17bebb53fa0fbe063f550be95a17c.tar.gz | |
Required OS/2-related patches
To: perl5-porters@perl.org (Mailing list Perl5)
Message-Id: <199905281611.MAA02037@monk.mps.ohio-state.edu>
p4raw-id: //depot/cfgperl@3496
Diffstat (limited to 't/op/groups.t')
| -rwxr-xr-x | t/op/groups.t | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/t/op/groups.t b/t/op/groups.t index d22d8f07ad..f46af93bd3 100755 --- a/t/op/groups.t +++ b/t/op/groups.t @@ -65,6 +65,11 @@ EOM quit(); } +unless (eval { getgrgid(0); 1 }) { + print "1..0 # Skip: getgrgid() not implemented\n"; + exit 0; +} + # Remember that group names can contain whitespace, '-', et cetera. # That is: do not \w, do not \S. if ($groups =~ /groups=(.+)( [ug]id=|$)/) { |