| Subject: | Fail SPF query before TXT one. |
Following script doesn't work with Net-DNS-0.57 and Perl 5.8.6 on
FreeBSD 5.4-RELEASE-p11.
But with @order=qw(txt spf), it works well.
#! /usr/bin/perl
use Data::Dumper;
use Net::DNS
@order = qw(spf txt);
$Data::Dumper::Useqq=1;
$q = new Net::DNS::Resolver();
foreach $qtype @order {
$p = new Net::DNS::Packet("sixxs.com", $qtype, "IN");
$ans = $q->send($p);
print Dumper($ans),"\n";
}
=end
Error message is ...
Can't locate object method "new" via package "Net::DNS::RR::SPF" at
/usr/local/lib/perl5/site_perl/5.8.6/mach/Net/DNS/RR.pm line 266.