Makefile and makefile only exist on case-sensitive file systems, so allow them.
authorNicholas Clark <nick@ccl4.org>
Wed, 7 Oct 2009 19:19:21 +0000 (20:19 +0100)
committerNicholas Clark <nick@ccl4.org>
Wed, 7 Oct 2009 19:19:21 +0000 (20:19 +0100)
t/porting/checkcase.t

index 9516271..527af22 100644 (file)
@@ -13,11 +13,13 @@ find(sub {
           my $name = $File::Find::name;
           # Assumes that the path separator is exactly one character.
           $name =~ s/^\.\..//;
+
+          # Special exemption for Makefile, makefile
+          return if $name =~ m!\A(?:x2p/)?[Mm]akefile\z!;
+
           push @{$files{lc $name}}, $name;
         }, '..');
 
-my $failed;
-
 foreach (values %files) {
     if (@$_ > 1) {
                print "not ok ".++$test_count. " - ". join(", ", @$_), "\n";