remove unused perldelta sections

[perl5.git] / Porting / checkpodencoding.pl

diff --git a/Porting/checkpodencoding.pl b/Porting/checkpodencoding.pl
index a936368..050cbe0 100755 (executable)
--- a/Porting/checkpodencoding.pl
+++ b/Porting/checkpodencoding.pl
@@ -22,7 +22,7 @@ find(
 sub finder {
     my $file = $_;
 
-    return if -B $file;
+    return if -d $file or -B $file;
 
     open my $fh, '<', $file;