t/porting/checkcase.t should skip directories

We should only care about directory case to the extent
it causes an actual file collision, so we can safely skip
directories and let the file collision tests find issues for us.

diff --git a/t/porting/checkcase.t b/t/porting/checkcase.t
index 6ae1cf8..b75df48 100644 (file)
--- a/t/porting/checkcase.t
+++ b/t/porting/checkcase.t
@@ -10,6 +10,10 @@ my %files;
 my $test_count = 0;
 
 find(sub {
+          # We only care about directories to the extent they
+          # result in an actual file collision, so skip dirs
+          return if -d $File::Find::name;
+
           my $name = $File::Find::name;
           # Assumes that the path separator is exactly one character.
           $name =~ s/^\.\..//;