fix nested dep fetching

Perl-Critic · Feb 23, 2024 · 532a10a · 532a10a
1 parent cbd4b37
commit 532a10a
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/xt/DepReqs.pm b/xt/DepReqs.pm
@@ -20,6 +20,9 @@ sub run {    # synch with dependent-modules.t
 
     my @deps = Test::DependentModules::_get_deps PPI =>
       { exclude => qr/^(Apache2-SSI|Devel-IPerl|Padre|Devel-Examine-Subs)$/ };
+
+    { no warnings 'redefine'; *MetaCPAN::Client::fetch = $old_fetch; }
+
     my $c    = MetaCPAN::Client->new;
     my @reqs = map @{ $c->release($_)->dependency }, @deps;
     io("xt/cpanfile")