Unverified Commit 55de87ac authored by Gavin Brown's avatar Gavin Brown
Browse files

pass debug to resolver, and also set some other resolver options

parent 90e0cb2c
......@@ -20,7 +20,14 @@ GetOptions(
'debug' => \$HTTP::Daemon::DEBUG,
);
my $resolver = Net::DNS::Resolver->new('nameservers' => [ $raddr ]);
my $resolver = Net::DNS::Resolver->new(
'nameservers' => [ $raddr ],
'debug' => $HTTP::Daemon::DEBUG,
'persistent_tcp' => 1,
'tcp_timeout' => 1,
'udp_timeout' => 1,
'retry' => 1,
);
my $server = HTTP::Daemon->new(
'LocalAddr' => $addr,
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment