[Perl] Net::DNS - TXT record

[Hans Schou <sslug@sslug>]

Hej

Når jeg kører følgende lille script
#!/usr/bin/perl
use Net::DNS;
my $res   = Net::DNS::Resolver->new;
my $query = $res->query("w0.dk", "TXT");
if ($query) {
        foreach $rr (grep { $_->type eq 'TXT' } $query->answer) {
                print $rr->nsdname, "\n";
        }
} else {
        warn "query failed: ", $res->errorstring, "\n";
}

får jeg det rigtige output, men også en fejl:
***  This object doesn't have a method "nsdname".  THIS IS A BUG
***  IN THE CALLING SOFTWARE, which has incorrectly assumed that
***  the object would be of a particular type.  The calling
***  software should check the type of each RR object before
***  calling any of its methods.
(åbentbart mig der gør noget galt)

Kender du Net::DNS og kan spotte fejlen, eller kender du et bedre 
modul til at lave TXT look-ups i DNS?

/hans
-- 
Horsebakken 78, DK-2400 København NV, Phone: +45 2264 8020
----------------------------------------------------------
A: Fordi det ændrer rækkefølgen folk normalt kommunikerer på.
Q: Hvorfor er top-svar en dårlig ting?
A: Top-svar.
Q: Hvad er det mest irriterende i e-mail?