X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fauthor%2Fversion_numbers.t;h=dc5d959f1f3138c3798d3b30ab8c41936c3dcfd7;hb=3f9e067ca892ae2b896de150dd22973de622dd1e;hp=2a04f68929669023f39e6595bca17ff143f5413a;hpb=3260ae5d0af06bc19bf754d8062998a51513691a;p=catagits%2FCatalyst-Devel.git

diff --git a/t/author/version_numbers.t b/t/author/version_numbers.t
index 2a04f68..dc5d959 100644
--- a/t/author/version_numbers.t
+++ b/t/author/version_numbers.t
@@ -3,19 +3,32 @@ use warnings;
 
 use FindBin qw/$Bin/;
 use File::Spec;
+use File::Find ();
+use ExtUtils::MakeMaker ();
+
 use File::Find::Rule;
 use Module::Info;
 
 use Test::More;
 
 my %versions;
-for my $pm_file ( File::Find::Rule->file->name( qr/\.pm$/ )->in(File::Spec->catdir($Bin, '..', '..', 'lib') ) ) {
-    my $mod = Module::Info->new_from_file($pm_file);
-
-    ( my $stripped_file = $pm_file ) =~ s{.*lib/}{};
-
-    $versions{$stripped_file} = $mod->version;
-}
+File::Find::find({
+    no_chdir => 1,
+    wanted => sub {
+        return
+            if -d;
+        return
+            if !/\.pm\z/;
+
+        my $version = MM->parse_version($_);
+        $version = undef
+            if $version && $version eq 'undef';
+
+        ( my $stripped_file = $_ ) =~ s{.*lib/}{};
+
+        $versions{$stripped_file} = $version;
+    },
+}, File::Spec->catdir($Bin, '..', '..', 'lib'));
 
 my $ver = delete $versions{'Catalyst/Devel.pm'};
 ok $ver;