Simple little VMS fix
authorMichael G. Schwern <schwern@pobox.com>
Tue, 13 Nov 2001 20:59:13 +0000 (15:59 -0500)
committerAbhijit Menon-Sen <ams@wiw.org>
Wed, 14 Nov 2001 01:09:28 +0000 (01:09 +0000)
Message-Id: <20011113205913.H32567@blackrider>

p4raw-id: //depot/perl@12987

t/op/groups.t
vms/test.com

index 8c146499d28ba47fd1f19806b26a959e1ddf4e5e..64f61904469b8a3aa16f9e7abb408caf8804e081 100755 (executable)
@@ -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";
index 786418cfd796a3931730d17d94d3fb70b749845c..a7064a9bd3eb888ff46e4261f7c3bc1c922bec75 100644 (file)
@@ -115,7 +115,7 @@ use Config;
 use File::Spec;
 
 @compexcl=('cpp.t');
-@opexcl=('die_exit.t','exec.t','groups.t','magic.t','stat.t');
+@opexcl=('die_exit.t','exec.t','magic.t','stat.t');
 @exclist=(@compexcl,@libexcl,@opexcl);
 foreach $file (@exclist) { $skip{$file}++; }