fix

gbxyz · gbxyz · commit 4f528c6c9962 · 2025-09-16T13:58:41.000+01:00
diff --git a/bin/stealth.pl b/bin/stealth.pl
@@ -164,7 +164,7 @@ sub check_tld {
             #
             # extract domains from entity email addresses
             #
-            foreach my $email (map { $_->{address} } map { @{$_->vcard->email_addresses} } $rdap->entities) {
+            foreach my $email (map { $_->{address} } map { @{$_->jcard->properties('email')->value } } $rdap->entities) {
                 push(@domains, $PSL->get_root_domain(Email::Address::XS->parse($email)->host));
             }
 

Original file line number	Diff line number	Diff line change
`@@ -164,7 +164,7 @@ sub check_tld {`
`164`	`164`	`#`
`165`	`165`	`# extract domains from entity email addresses`
`166`	`166`	`#`
`167`		`- foreach my $email (map { $_->{address} } map { @{$_->vcard->email_addresses} } $rdap->entities) {`
	`167`	`+ foreach my $email (map { $_->{address} } map { @{$_->jcard->properties('email')->value } } $rdap->entities) {`
`168`	`168`	`push(@domains, $PSL->get_root_domain(Email::Address::XS->parse($email)->host));`
`169`	`169`	`}`
`170`	`170`