diff options
| -rw-r--r-- | lib/strict.t | 2 | ||||
| -rw-r--r-- | lib/warnings.t | 1 |
2 files changed, 2 insertions, 1 deletions
diff --git a/lib/strict.t b/lib/strict.t index 02f191b9c5..80076fc67d 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 8e57a6db59..0e65da992b 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; |