also cache lack of email to pauseid mapping

haarg · haarg · commit fec6578b2518 · 2024-11-23T17:12:20.000+01:00
diff --git a/lib/MetaCPAN/Script/Role/Contributor.pm b/lib/MetaCPAN/Script/Role/Contributor.pm
@@ -212,6 +212,8 @@ sub get_contributors {
                 $email_mapping->{$_} //= $pauseid
                     for ref $emails ? @$emails : $emails;
             }
+
+            $email_mapping->{$_} //= undef for @fetch_email;
         }
 
         for my $email ( keys %want_email ) {

Original file line number	Diff line number	Diff line change
`@@ -212,6 +212,8 @@ sub get_contributors {`
`212`	`212`	`$email_mapping->{$_} //= $pauseid`
`213`	`213`	`for ref $emails ? @$emails : $emails;`
`214`	`214`	`}`
	`215`	`+`
	`216`	`+ $email_mapping->{$_} //= undef for @fetch_email;`
`215`	`217`	`}`
`216`	`218`
`217`	`219`	`for my $email ( keys %want_email ) {`