On Fri Jun 12 21:05:53 2009, rfg@tristatelogic.com wrote:
Show quoted text> Greetings,
>
> I tried to send in this (bug?) report the normal way, but the CPAN mail
> server rejected it because it contained some domain names that are indeed
> most likely involved in spamming. But the domain names are part of my
> necessary examples to illustrate the particular non-feature (bug?) in
> Net::DNS that I'm reporting on. So in order to get this bugreport to
> you, I've had to resort to putting it on my web site, rather than e-mailing
> it:
>
>
http://www.tristatelogic.com/perl-non-feature.txt
>
> Please read & reply, as appropriate. Thanks.
Sorry for being so extremely late, but you should use the send method instead of the query
method... See documentation fragment below
send
$packet = $res->send($packet_object);
$packet = $res->send('mailhost.example.com');
$packet = $res->send('example.com', 'MX');
$packet = $res->send('user.passwd.example.com', 'TXT', 'HS');
Performs a DNS query for the given name. Neither the searchlist nor
the default domain will be appended.
The argument list can be either a "Net::DNS::Packet" object or a list
of strings. The record type and class can be omitted; they default to
A and IN. If the name looks like an IP address (Ipv4 or IPv6), then an
appropriate PTR query will be performed.
Returns a "Net::DNS::Packet" object whether there were any answers or
not. Use "$packet->header->ancount" or "$packet->answer" to find out
if there were any records in the answer section. Returns "undef" if
there was an error.