2 # Finds the files that have the same name, case insensitively,
3 # in the current directory and its subdirectories
13 my $name = $File::Find::name;
14 # Assumes that the path separator is exactly one character.
17 # Special exemption for Makefile, makefile
18 return if $name =~ m!\A(?:x2p/)?[Mm]akefile\z!;
20 push @{$files{lc $name}}, $name;
23 foreach (values %files) {
25 print "not ok ".++$test_count. " - ". join(", ", @$_), "\n";
27 print "ok ".++$test_count. " - ". join(", ", @$_), "\n";
31 print "1..".$test_count."\n";