From 8e3eacadd3d91fbab5a4bb41b7d817f9d42bbb5a Mon Sep 17 00:00:00 2001
From: "Michael G. Schwern" <schwern@pobox.com>
Date: Tue, 13 Nov 2001 15:59:13 -0500
Subject: Simple little VMS fix Message-Id: <20011113205913.H32567@blackrider>

p4raw-id: //depot/perl@12987
---
 t/op/groups.t | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 't')

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";
-- 
cgit v1.2.1