This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
85ee66e
)
Makefile and makefile only exist on case-sensitive file systems, so allow them.
author
Nicholas Clark
<nick@ccl4.org>
Wed, 7 Oct 2009 19:19:21 +0000
(20:19 +0100)
committer
Nicholas Clark
<nick@ccl4.org>
Wed, 7 Oct 2009 19:19:21 +0000
(20:19 +0100)
t/porting/checkcase.t
patch
|
blob
|
blame
|
history
diff --git
a/t/porting/checkcase.t
b/t/porting/checkcase.t
index
9516271
..
527af22
100644
(file)
--- 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";