ComputerSurge/bind9
3
0
Fork 0
Code Pull Requests 1 Activity

Merge branch '510-resolver-test-was-failing-v9_11' into 'v9_11'

Browse Source 
Resolve "Resolver test was failing"

See merge request isc-projects/bind9!742
This commit is contained in:
Mark Andrews
2018-08-31 04:53:29 -04:00
parent 381ae150b1 fb0f34cc71
commit 2bb5fc2e9b
1 changed files with 6 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
bin/tests/system/resolver/ans8/ans.pl
View File

@@ -61,23 +61,15 @@ sub handleUDP {
my $qclass = $questions[0]->qclass;
my $id = $request->header->id;
my $packet = new Net::DNS::Packet();
$packet->header->qr(1);
$packet->header->aa(0);
$packet->header->id($id);
# don't use Net::DNS to construct the header only reply as early
# versions just get it completely wrong.
if ($qname eq "truncated.no-questions") {
$packet->header->tc(1);
} else {
$packet->header->tc(0);
# QR, AA, TC
return (pack("nnnnnn", $id, 0x8600, 0, 0, 0, 0));
}
# Net::DNS versions < 0.68 insert an ./ANY RR into the QUESTION section
# if the latter is empty. Make sure Net::DNS version does not
# influence the return value of this function by returning the query ID
# and flags generated by Net::DNS with 8 zero bytes appended.
return substr($packet->data, 0, 4) . "\x00" x 8;
# QR, AA
return (pack("nnnnnn", $id, 0x8400, 0, 0, 0, 0));
}
sub handleTCP {