Upgrade to Getopt::Long 2.26_03.

[p5sagit/p5-mst-13.2.git] / vms / test.com

diff --git a/vms/test.com b/vms/test.com
index e2b9503..a7064a9 100644 (file)
--- a/vms/test.com
+++ b/vms/test.com
@@ -102,7 +102,7 @@ $   PerlShr_filespec = f$parse("Sys$Disk:[-]''dbg'PerlShr''exe'")
 $   Define 'dbg'Perlshr 'PerlShr_filespec'
 $   MCR Sys$Disk:[]Perl. "-I[-.lib]" - "''p3'" "''p4'" "''p5'" "''p6'"
 $   Deck/Dollar=$$END-OF-TEST$$
-# $RCSfile: test.com,v $$Revision: 1.1 $$Date: 2001/11/07 06:58:50 $
+# $RCSfile: test.com,v $$Revision: 1.1 $$Date: 2001/11/13 00:26:19 $
 # Modified for VMS 30-Sep-1994  Charles Bailey  bailey@newman.upenn.edu
 #
 # This is written in a peculiar style, since we're trying to avoid
@@ -115,17 +115,8 @@ use Config;
 use File::Spec;
 
 @compexcl=('cpp.t');
-@ioexcl=('dup.t');
-@libexcl=('io_dup.t', 'io_pipe.t', 'io_poll.t', 'io_sel.t',
-          'io_sock.t', 'io_unix.t');
-
-# io_xs.t tests the new_tmpfile routine, which doesn't work with the
-# VAXCRTL, since the file can't be stat()d, an Perl's do_open()
-# insists on stat()ing a file descriptor before it'll use it.
-push(@libexcl,'io_xs.t') if $Config{'vms_cc_type'} ne 'decc';
-
-@opexcl=('die_exit.t','exec.t','groups.t','magic.t','stat.t');
-@exclist=(@compexcl,@ioexcl,@libexcl,@opexcl);
+@opexcl=('die_exit.t','exec.t','magic.t','stat.t');
+@exclist=(@compexcl,@libexcl,@opexcl);
 foreach $file (@exclist) { $skip{$file}++; }
 
 $| = 1;