2
0
mirror of https://gitlab.isc.org/isc-projects/bind9 synced 2025-08-30 14:07:59 +00:00

Fix a Net::DNS version quirk in the "resolver" system test

Net::DNS versions older than 0.68 insert a ./ANY RR into the QUESTION
section if the latter is empty.  Since the latest Net::DNS version
available with stock RHEL/CentOS 6 packages is 0.65 and we officially
support that operating system, bin/tests/system/resolver/ans8/ans.pl
should behave consistently for various Net::DNS versions.  Ensure that
by making handleUDP() return the query ID and flags generated by
Net::DNS with 8 zero bytes appended.
This commit is contained in:
Michał Kępień 2018-07-09 12:57:23 +02:00
parent 3e0d30a642
commit 6c3c6aea37

View File

@ -73,7 +73,11 @@ sub handleUDP {
$packet->header->tc(0);
}
return $packet->data;
# 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;
}
sub handleTCP {