[perl #15987] Tests fail when sources are under CVS control

From: Warren Jones (via RT) <perlbug@perl.org>
Message-id: <rt-15987-32864.15.6255441902154@bugs6.perl.org>

p4raw-id: //depot/perl@17719

diff --git a/lib/strict.t b/lib/strict.t
index 02f191b..80076fc 100644 (file)
--- a/lib/strict.t
+++ b/lib/strict.t
@@ -20,7 +20,7 @@ my @prgs = () ;
 
 foreach (sort glob($^O eq 'MacOS' ? ":lib:strict:*" : "lib/strict/*")) {
 
-    next if /(~|\.orig|,v)$/;
+    next if -d || /(~|\.orig|,v)$/;
 
     open F, "<$_" or die "Cannot open $_: $!\n" ;
     while (<F>) {

diff --git a/lib/warnings.t b/lib/warnings.t
index 8e57a6d..0e65da9 100644 (file)
--- a/lib/warnings.t
+++ b/lib/warnings.t
@@ -40,6 +40,7 @@ foreach my $file (@w_files) {
 
     next if $file =~ /(~|\.orig|,v)$/;
     next if $file =~ /perlio$/ && !(find PerlIO::Layer 'perlio');
+    next if -d $file;
 
     open F, "<$file" or die "Cannot open $file: $!\n" ;
     my $line = 0;