meep

Perl-Critic · Feb 23, 2024 · b85d722 · b85d722
1 parent e989aed
commit b85d722
Showing 1 changed file with 13 additions and 10 deletions.
diff --git a/xt/DepReqs.pm b/xt/DepReqs.pm
@@ -38,17 +38,8 @@ sub run {    # synch with dependent-modules.t
         |RPerl
     )$/x
     };
-    { no warnings 'redefine'; *MetaCPAN::Client::fetch = $old_fetch; }
 
-    # test early that all modules don't have an author that crashes tests later
-    Test::DependentModules::_load_cpan;
-    for my $name (@deps) {
-        my $mod = $name;
-        $mod =~ s/-/::/g;
-        next unless    #
-          my $dist = Test::DependentModules::_get_distro($mod);
-        $dist->author->id;
-    }
+    { no warnings 'redefine'; *MetaCPAN::Client::fetch = $old_fetch; }
 
     my $c = MetaCPAN::Client->new;
     my @reqs;
@@ -66,5 +57,17 @@ sub run {    # synch with dependent-modules.t
 
     say "debug printing file";
     say io("xt/cpanfile")->all;
+
+    # test early that all modules don't have an author that crashes tests later
+    # !!! careful, this changes CWD !!!
+    Test::DependentModules::_load_cpan;
+    for my $name (@deps) {
+        my $mod = $name;
+        $mod =~ s/-/::/g;
+        next unless    #
+          my $dist = Test::DependentModules::_get_distro($mod);
+        $dist->author->id;
+    }
+
     say "done";
 }