Subject: | Net::DNS::Nameserver crash on invalid query |
Occasionally (every few million queries) Net::DNS::Nameserver crashes on line 387 with "can't
call additional on undefined variable". It seems like this originates earlier with:
my $query = Net::DNS::Packet->new(\$buf);
my $conn = {
sockhost => $sock->sockhost,
sockport => $sock->sockport,
peerhost => $sock->peerhost,
peerport => $sock->peerport
};
my $reply = $self->make_reply($query, $peerhost, $conn) || return;
my $max_len = $self->max_udp_len($query);
... some of this code should probably bail out / return if $query doesn't get setup.