my($msg,$from_addr,$pktinfo_data)=@_;
my $query=Net::DNS::Packet->new(\$msg);
+ # FIXME: It really occured on hoteltest.
+ do { warn "Failed to parse DNS packet query: ".unpack("H*",$msg); return; } if !$query;
my $query_id_orig=$query->header()->id();
my $query_id=id_next();
$query->header()->id($query_id);