Better diagnostics on detecting case sensitive file name clashes.
authorNicholas Clark <nick@ccl4.org>
Sat, 12 Jun 2010 18:05:51 +0000 (19:05 +0100)
committerNicholas Clark <nick@ccl4.org>
Sat, 12 Jun 2010 18:05:51 +0000 (19:05 +0100)
t/porting/checkcase.t

index 527af22..6ae1cf8 100644 (file)
@@ -20,9 +20,10 @@ find(sub {
           push @{$files{lc $name}}, $name;
         }, '..');
 
-foreach (values %files) {
+foreach (sort values %files) {
     if (@$_ > 1) {
                print "not ok ".++$test_count. " - ". join(", ", @$_), "\n";
+               print STDERR "# $_\n" foreach @$_;
     } else {
                print "ok ".++$test_count. " - ". join(", ", @$_), "\n";
        }