Add a small script to check whether a perl source tree

(with or without generated files) is friendly with
case-insensitive filesystems.
Adapted from :
Subject: Re: STerm.pl vs Sterm.pl
Message-ID: <20040506124556.2402.qmail@onion.perl.org>

p4raw-id: //depot/perl@22793

1 files changed, 26 insertions, 0 deletions

diff --git a/Porting/checkcase.pl b/Porting/checkcase.pl
new file mode 100644
index 0000000000..66dccd24c8
--- /dev/null
+++ b/Porting/checkcase.pl
@@ -0,0 +1,26 @@
+#!/usr/bin/perl
+# Finds the files that have the same name, case insensitively,
+# in the current directory and its subdirectories
+
+use warnings;
+use strict;
+use File::Find;
+
+my %files;
+find(sub {
+	   my $name = $File::Find::name;
+	   # Assumes that the path separator is exactly one character.
+	   $name =~ s/^\.\..//;
+	   push @{$files{lc $name}}, $name;
+	 }, '.');
+
+my $failed;
+
+foreach (values %files) {
+    if (@$_ > 1) {
+	print join(", ", @$_), "\n";
+	$failed++;
+    }
+}
+
+print "no similarly named files found\n" unless $failed;