From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 7 Oct 2009 19:19:21 +0000 (+0100)
Subject: Makefile and makefile only exist on case-sensitive file systems, so allow them.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0a38ae18eab66ea249670cf95ae35df5a620e968;p=p5sagit%2Fp5-mst-13.2.git

Makefile and makefile only exist on case-sensitive file systems, so allow them.
---

diff --git a/t/porting/checkcase.t b/t/porting/checkcase.t
index 9516271..527af22 100644
--- a/t/porting/checkcase.t
+++ b/t/porting/checkcase.t
@@ -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";