stat.t portability, the LAST VMS exception!

Message-ID: <20011205022205.F14333@blackrider>

p4raw-id: //depot/perl@13470

1 files changed, 2 insertions, 12 deletions

diff --git a/vms/test.com b/vms/test.com
index 11f6a30afd..7c2174feae 100644
--- 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/13 00:26:19 $
+# $RCSfile: test.com,v $$Revision: 1.1 $$Date: 2001/12/05 06:53:37 $
 # 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
@@ -114,9 +114,6 @@ $   Deck/Dollar=$$END-OF-TEST$$
 use Config;
 use File::Spec;
 
-@exclist=('exec.t','stat.t');
-foreach $file (@exclist) { $skip{$file}++; }
-
 $| = 1;
 
 # Let tests know they're running in the perl core.  Useful for modules
@@ -137,17 +134,10 @@ if ($ARGV[0] eq '') {
       $_ = File::Spec->abs2rel($_);
       s/\[([a-z]+)/[.$1/;      # hmm, abs2rel doesn't do subdirs of the cwd
       ($fname = $_) =~ s/.*\]//;
-      if ($skip{"\L$fname"}) { push(@skipped,$_); }
-      else { push(@ARGV,$_); }
+      push(@ARGV,$_);
     }
 }
 
-if (@skipped) {
-  print "The following tests were skipped because they rely extensively on\n";
-  print " Unixisms not compatible with the current version of perl for VMS:\n";
-  print "\t",join("\n\t",@skipped),"\n\n";
-}
-
 $bad = 0;
 $good = 0;
 $extra_skip = 0;