fixed

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

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