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 (file)
--- 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 (file)
--- 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('/');
 {