We don't actually want to check .PL files
authorJesse Vincent <jesse@bestpractical.com>
Tue, 6 Oct 2009 01:42:14 +0000 (21:42 -0400)
committerJesse Vincent <jesse@bestpractical.com>
Tue, 6 Oct 2009 03:57:38 +0000 (23:57 -0400)
t/porting/podcheck.t

index d52d66d..0df45a7 100644 (file)
@@ -46,7 +46,7 @@ if (! @files) {
     File::Find::find({
         no_chdir => 1,
         wanted   => sub {
-                return unless $File::Find::name =~ /(\.(pod|pm|pl))$/i;
+                return unless $File::Find::name =~ /(\.(pod|pm|pl))$/;
                 push @files, $File::Find::name;
             },
         }, grep { m!/$! } @d );
@@ -82,4 +82,4 @@ AUTHORS
 Changes
 INSTALL
 README*
-*.pod
\ No newline at end of file
+*.pod