diff --git a/CHANGES b/CHANGES index c093744be3..cd53be26c1 100644 --- a/CHANGES +++ b/CHANGES @@ -1,3 +1,5 @@ +4476. [test] Fix reclimit test on slower machines. [RT #43283] + 4475. [doc] Update named-checkconf documentation. [RT #43153] 4474. [bug] win32: call WSAStartup in fromtext_in_wks so that diff --git a/bin/tests/system/reclimit/ans2/ans.pl b/bin/tests/system/reclimit/ans2/ans.pl index 761cf8403c..af2dd2a8f0 100644 --- a/bin/tests/system/reclimit/ans2/ans.pl +++ b/bin/tests/system/reclimit/ans2/ans.pl @@ -12,6 +12,7 @@ use warnings; use IO::File; use Getopt::Long; use Net::DNS::Nameserver; +use Time::HiRes qw(usleep nanosleep); my $pidf = new IO::File "ans.pid", "w" or die "cannot open pid file: $!"; print $pidf "$$\n" or die "cannot write pid file: $!"; @@ -51,6 +52,8 @@ sub reply_handler { STDOUT->flush(); $count += 1; + # Sleep 100ms to make sure that named sends both A and AAAA queries. + usleep(100000); if ($qname eq "count" ) { if ($qtype eq "TXT") {