From: Dan Brook <broq@cpan.org>
Date: Wed, 3 Feb 2010 12:16:34 +0000 (+0000)
Subject: A couple of small tweaks revolving around WWW::Mechanize.
X-Git-Tag: 0.000006_01~1^2~19
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1aa53942b7e4aa472f84aabed190f517213d6704;hp=40fff9ec5693225d4fcf31e1b391b321e43dfd38;p=catagits%2FGitalist.git

A couple of small tweaks revolving around WWW::Mechanize.

* Made Makefile.PL a little more robust so it doesn't pick up editor
  backup/swap files e.g .#SyntaxHighlight.pm
* Tweaked the skip message in t/app-mech-rootpage.t.
---

diff --git a/Makefile.PL b/Makefile.PL
index 5c29c76..d733e1c 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -29,7 +29,7 @@ if ($ENV{GITALIST_RELEASE_TESTING}) {
     # Fill in provides info so that indexing works right (in the face of MX::Declare)
     # by just smashing filenames to package names and not trying to be smart..
     File::Find::find(sub {
-        return unless $File::Find::name =~ /\.pm$/;
+        return unless /^\w.*?\.pm$/;
         my $fn = $File::Find::name;
         my $ver = ExtUtils::MM_Unix->parse_version($fn);
 
diff --git a/t/app-mech-rootpage.t b/t/app-mech-rootpage.t
index 8be8cf3..89143b4 100644
--- a/t/app-mech-rootpage.t
+++ b/t/app-mech-rootpage.t
@@ -2,7 +2,7 @@
 use FindBin qw/$Bin/;
 use lib "$Bin/lib";
 use TestGitalist;
-plan 'skip_all' => 'No WWW::Mechanize' unless MECH();
+plan 'skip_all' => 'Either Test::WWW::Mechanize::Catalyst or WWW::Mechanize::TreeBuilder not present' unless MECH();
 
 MECH->get_ok('/');
 {