From: Warren Jones <wjones@tc.fluke.com>
Date: Mon, 5 Aug 2002 19:08:50 +0000 (+0000)
Subject: [perl #15987] Tests fail when sources are under CVS control
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cbc25c4293d5ee1c43b7996e79900570a0580df6;p=p5sagit%2Fp5-mst-13.2.git

[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
--- 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
--- 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;