From e989aedb57f317fb97d0a1f45c1ac594ec2fef24 Mon Sep 17 00:00:00 2001
From: Christian Walde <walde.christian@gmail.com>
Date: Fri, 23 Feb 2024 18:13:11 +0100
Subject: [PATCH] BLAH

---
 xt/DepReqs.pm          | 15 +++++++++++++++
 xt/dependent-modules.t |  5 +++++
 2 files changed, 20 insertions(+)

diff --git a/xt/DepReqs.pm b/xt/DepReqs.pm
index b341d2e8..30b1dda1 100644
--- a/xt/DepReqs.pm
+++ b/xt/DepReqs.pm
@@ -8,6 +8,7 @@ use Test::DependentModules;
 use IO::All;
 use MetaCPAN::Client;
 use List::Util 'uniqstr';
+use Devel::Confess;
 
 1;
 
@@ -31,10 +32,24 @@ sub run {    # synch with dependent-modules.t
         |Acme-ReturnValue|Bot-BasicBot-Pluggable-Module-Gitbot|Pinwheel
         |Dist-Zilla-Plugin-MetaProvides-Package|Dist-Zilla-Plugin-Readme-Brief
         |Apache2-PPI-HTML
+        # author parsing issue
+        |Spellunker-Perl
+        # takes too long
+        |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;
+    }
+
     my $c = MetaCPAN::Client->new;
     my @reqs;
     for my $dependent (@deps) {
diff --git a/xt/dependent-modules.t b/xt/dependent-modules.t
index 051f117a..e7961778 100644
--- a/xt/dependent-modules.t
+++ b/xt/dependent-modules.t
@@ -3,6 +3,7 @@ use strictures 2;
 
 use Test::DependentModules 'test_all_dependents';
 use MetaCPAN::Client;
+use Devel::Confess;
 
 # synch with DepReqs.pm
 
@@ -31,6 +32,10 @@ test_all_dependents PPI => {
         |Acme-ReturnValue|Bot-BasicBot-Pluggable-Module-Gitbot|Pinwheel
         |Dist-Zilla-Plugin-MetaProvides-Package|Dist-Zilla-Plugin-Readme-Brief
         |Apache2-PPI-HTML
+        # author parsing issue
+        |Spellunker-Perl
+        # takes too long
+        |RPerl
     )$/x
 };