https://bz.apache.org/SpamAssassin/show_bug.cgi?id=8197
--- Comment #12 from Sidney Markowitz <sid...@sidney.com> ---
I updated the bug on the ticket I opened for Net::DNS with the following small
standalone test case, which demonstrates the bug when run on Windows 10 or 11
with Net::DNS version 1.38 through the latest 1.40, but works on other
platforms and on Windows with older versions of Net::DNS.
Put this in a file and run with, e.g., perl -T dnsnameservertest.pm
#!/usr/bin/perl -T
use strict;
use warnings;
use Net::DNS::Nameserver;
sub reply_handler {
return;
}
print "Using Net::DNS version " . Net::DNS->VERSION . "\n";
my $ns = Net::DNS::Nameserver->new(
LocalPort => 15353,
ReplyHandler => \&reply_handler,
Verbose => 1
) || die "couldn't create nameserver object\n";
$ns->loop_once(1);
exit;
--
You are receiving this mail because:
You are the assignee for the bug.
