fix metacpan/MetaCPAN-Client#122 with a monkeypatch

Author: wchristian

xt/DepReqs.pm

@@ -5,14 +5,21 @@ use strictures 2;
 
 use Test::DependentModules;
 use IO::All;
+use MetaCPAN::Client;
 
 1;
 
 __PACKAGE__->run;
 
-sub run {
-    my @deps = Test::DependentModules::_get_deps    #
-      PPI => { exclude => qr/^(Apache2-SSI|Devel-IPerl|Padre)$/ };
+sub run {    # synch with dependent-modules.t
+    ## force metacpan to actually return the whole dependents list
+    # https://github.com/metacpan/metacpan-client/issues/122
+    my $old_fetch = \&MetaCPAN::Client::fetch;
+    my $new_fetch = sub { $old_fetch->( shift, shift . "?size=5000", @_ ) };
+    { no warnings 'redefine'; *MetaCPAN::Client::fetch = $new_fetch; }
+
+    my @deps = Test::DependentModules::_get_deps PPI =>
+      { exclude => qr/^(Apache2-SSI|Devel-IPerl|Padre|Devel-Examine-Subs)$/ };
     my $c    = MetaCPAN::Client->new;
     my @reqs = map @{ $c->release($_)->dependency }, @deps;
     io("xt/cpanfile")

xt/dependent-modules.t

@@ -2,14 +2,23 @@ use Test2::V0;
 use strictures 2;
 
 use Test::DependentModules 'test_all_dependents';
+use MetaCPAN::Client;
+
+# synch with DepReqs.pm
 
 skip_all "ENV var TEST_DEPENDENTS not set" if not $ENV{TEST_DEPENDENTS};
 
 # duplicate error output into an array for later printing
 my @error_log;
-my $old = \&Test::DependentModules::_error_log;
-my $new = sub { push @error_log, @_; $old->(@_); };
-{ no warnings 'redefine'; *Test::DependentModules::_error_log = $new; }
+my $old_log = \&Test::DependentModules::_error_log;
+my $new_log = sub { push @error_log, @_; $old_log->(@_); };
+{ no warnings 'redefine'; *Test::DependentModules::_error_log = $new_log; }
+
+# force metacpan to actually return the whole dependents list
+# https://github.com/metacpan/metacpan-client/issues/122
+my $old_fetch = \&MetaCPAN::Client::fetch;
+my $new_fetch = sub { $old_fetch->( shift, shift . "?size=5000", @_ ) };
+{ no warnings 'redefine'; *MetaCPAN::Client::fetch = $new_fetch; }
 
 test_all_dependents PPI => {
     exclude => qr/^(