retab t/porting/checkcase.t
authorDavid Golden <dagolden@cpan.org>
Fri, 11 Feb 2011 16:01:12 +0000 (11:01 -0500)
committerDavid Golden <dagolden@cpan.org>
Fri, 11 Feb 2011 16:01:12 +0000 (11:01 -0500)
t/porting/checkcase.t

index b75df48..4ae44ca 100644 (file)
@@ -10,27 +10,28 @@ my %files;
 my $test_count = 0;
 
 find(sub {
-          # We only care about directories to the extent they
-          # result in an actual file collision, so skip dirs
-          return if -d $File::Find::name;
+        # We only care about directories to the extent they
+        # result in an actual file collision, so skip dirs
+        return if -d $File::Find::name;
 
-          my $name = $File::Find::name;
-          # Assumes that the path separator is exactly one character.
-          $name =~ s/^\.\..//;
+        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!;
+        # Special exemption for Makefile, makefile
+        return if $name =~ m!\A(?:x2p/)?[Mm]akefile\z!;
 
-          push @{$files{lc $name}}, $name;
-        }, '..');
+        push @{$files{lc $name}}, $name;
+    }, '..');
 
 foreach (sort values %files) {
     if (@$_ > 1) {
-               print "not ok ".++$test_count. " - ". join(", ", @$_), "\n";
-               print STDERR "# $_\n" foreach @$_;
+        print "not ok ".++$test_count. " - ". join(", ", @$_), "\n";
+        print STDERR "# $_\n" foreach @$_;
     } else {
-               print "ok ".++$test_count. " - ". join(", ", @$_), "\n";
-       }
+        print "ok ".++$test_count. " - ". join(", ", @$_), "\n";
+    }
 }
 
 print "1..".$test_count."\n";
+# vim: ts=4 sts=4 sw=4 et: