X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Fwarnings.t;h=0e65da992bd030d67a9f57e0bdd66059f44f31e5;hb=c9bca74aca217023baf0f921dcffaaa072a83cf3;hp=8e57a6db5993798f0940a167140b223af2d18d6e;hpb=e69a2255d0db4d110e403864fcb97407ce8e4ff9;p=p5sagit%2Fp5-mst-13.2.git

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;