This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/porting/checkcase.t should skip directories
authorDavid Golden <dagolden@cpan.org>
Fri, 11 Feb 2011 15:58:22 +0000 (10:58 -0500)
committerDavid Golden <dagolden@cpan.org>
Fri, 11 Feb 2011 15:58:22 +0000 (10:58 -0500)
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.

t/porting/checkcase.t

index 6ae1cf8..b75df48 100644 (file)
@@ -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/^\.\..//;