diff options
author | Nicholas Clark <nick@ccl4.org> | 2009-10-07 20:19:21 +0100 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2009-10-07 20:19:21 +0100 |
commit | 0a38ae18eab66ea249670cf95ae35df5a620e968 (patch) | |
tree | c273f38a681256e6350b132af2ca3169a11b6611 /t/porting | |
parent | 85ee66ebc80e705da4ab79eab4c148a1fe932657 (diff) | |
download | perl-0a38ae18eab66ea249670cf95ae35df5a620e968.tar.gz |
Makefile and makefile only exist on case-sensitive file systems, so allow them.
Diffstat (limited to 't/porting')
-rw-r--r-- | t/porting/checkcase.t | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/t/porting/checkcase.t b/t/porting/checkcase.t index 9516271397..527af222f0 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"; |