diff --git a/lib/Zonemaster/Engine/Test/DNSSEC.pm b/lib/Zonemaster/Engine/Test/DNSSEC.pm index 1e0546e48..ef51151e5 100644 --- a/lib/Zonemaster/Engine/Test/DNSSEC.pm +++ b/lib/Zonemaster/Engine/Test/DNSSEC.pm @@ -3150,6 +3150,7 @@ sub dnssec10 { @{ Zonemaster::Engine::TestMethodsV2->get_zone_ns_names_and_ips( $zone ), Zonemaster::Engine::TestMethodsV2->get_del_ns_names_and_ips( $zone ) } : @{ Zonemaster::Engine::TestMethodsV2->get_del_ns_names_and_ips( $zone ) } : (); + my @queried_nss; my %ip_already_processed; my $testing_time = time; @@ -3162,6 +3163,8 @@ sub dnssec10 { next; } + push @queried_nss, $ns; + my $dnskey_p = $ns->query( $zone->name, $type_dnskey, { dnssec => 1 } ); if ( not $dnskey_p or $dnskey_p->rcode ne q{NOERROR} or not $dnskey_p->aa ) { @@ -3786,7 +3789,7 @@ sub dnssec10 { ); } - $lc = List::Compare->new( [ @nss ], [ @without_dnskey, @nsec_in_answer, @nsec3param_nsec_nodata, @nsec3param_in_answer, @nsec_nsec3_nodata ] ); + $lc = List::Compare->new( [ @queried_nss ], [ @without_dnskey, @nsec_in_answer, @nsec3param_nsec_nodata, @nsec3param_in_answer, @nsec_nsec3_nodata ] ); @first = $lc->get_unique; if ( @first ) {