diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2001-11-13 15:59:13 -0500 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2001-11-14 01:09:28 +0000 |
| commit | 8e3eacadd3d91fbab5a4bb41b7d817f9d42bbb5a (patch) | |
| tree | 3ce1ae66df304995629a57967047ea95e9fdec43 /t | |
| parent | 05f4e11e4fb0a62bd31b9b2bd08526fa0aba7e62 (diff) | |
| download | perl-8e3eacadd3d91fbab5a4bb41b7d817f9d42bbb5a.tar.gz | |
Simple little VMS fix
Message-Id: <20011113205913.H32567@blackrider>
p4raw-id: //depot/perl@12987
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/groups.t | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/t/op/groups.t b/t/op/groups.t index 8c146499d2..64f6190446 100755 --- a/t/op/groups.t +++ b/t/op/groups.t @@ -10,6 +10,11 @@ sub quit { exit 0; } +unless (eval { getgrgid(0); 1 }) { + print "1..0 # Skip: getgrgid() not implemented\n"; + exit 0; +} + quit() if (($^O eq 'MSWin32' || $^O eq 'NetWare') or $^O =~ /lynxos/i); # We have to find a command that prints all (effective @@ -65,11 +70,6 @@ EOM quit(); } -unless (eval { getgrgid(0); 1 }) { - print "1..0 # Skip: getgrgid() not implemented\n"; - exit 0; -} - chomp($groups); print "# groups = $groups\n"; |