We don't actually want to check .PL files

diff --git a/t/porting/podcheck.t b/t/porting/podcheck.t
index d52d66d..0df45a7 100644 (file)
--- a/t/porting/podcheck.t
+++ b/t/porting/podcheck.t
@@ -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