use IPC::Open3 rather than IPC::Run3

[catagits/Catalyst-Devel.git] / t / author / version_numbers.t

diff --git a/t/author/version_numbers.t b/t/author/version_numbers.t
index 2a04f68..dc5d959 100644 (file)
--- 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;