From: Jesse Vincent <jesse@bestpractical.com>
Date: Tue, 6 Oct 2009 01:42:14 +0000 (-0400)
Subject: We don't actually want to check .PL files
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9dab8649fdbde6d1c10ef1e57c8ce68b7d5e12fc;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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