diff --git a/xt/DepReqs.pm b/xt/DepReqs.pm
index 30b1dda1..72a93a3c 100644
--- 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";
 }