# - add -s option to configure udp packet size. default changed from 4k to 1k
# Copyright (c) 2013 Peter Palfrader <peter@palfrader.org>
# - add -r option to override initial refs.
# - add -s option to configure udp packet size. default changed from 4k to 1k
# Copyright (c) 2013 Peter Palfrader <peter@palfrader.org>
# - add -r option to override initial refs.
critical($pkt->header->rcode . " from " . $pkt->answerfrom)
unless ($pkt->header->rcode eq 'NOERROR');
@refs = ();
critical($pkt->header->rcode . " from " . $pkt->answerfrom)
unless ($pkt->header->rcode eq 'NOERROR');
@refs = ();
critical("No response from $ns") unless $pkt;
print STDERR $pkt->string if $opts{d};
critical($pkt->header->rcode . " from $ns")
critical("No response from $ns") unless $pkt;
print STDERR $pkt->string if $opts{d};
critical($pkt->header->rcode . " from $ns")
my $res = Net::DNS::Resolver->new;
$res->nameserver($server) if $server;
$res->udp_timeout($opts{t});
my $res = Net::DNS::Resolver->new;
$res->nameserver($server) if $server;
$res->udp_timeout($opts{t});
$res->retry(2);
$res->udppacketsize($opts{s});
my $pkt = $res->send($qname, $qtype);
$res->retry(2);
$res->udppacketsize($opts{s});
my $pkt = $res->send($qname, $qtype);