| Subject: | Bug line 193 of Fast.pm |
| Date: | Tue, 16 Aug 2016 19:36:14 +0000 |
| To: | "bug-Net-DNS-ZoneFile-Fast [...] rt.cpan.org" <bug-Net-DNS-ZoneFile-Fast [...] rt.cpan.org> |
| From: | "White, Andrew" <Andrew.White2 [...] charter.com> |
Hi there,
In the latest supported version of Net:DNS on RHEL 6 (perl-Net-DNS-0.65-5.el6.x86_64), installing the latest Net::DNS::ZoneFile::Fast throws the following error. Installing latest Net::DNS from CPAN does not fix the issue, either.
$ perl test.pl
undefined method Net::DNS::RR::new_from_hash at /usr/local/share/perl5/Net/DNS/RR.pm line 697
Net::DNS::RR::AUTOLOAD('Net::DNS::RR', 'minimum', 86400, 'serial', 2014103100, 'ttl', 86400, 'mname', 'ns1.charter.com', ...) called at /usr/share/perl5/vendor_perl/Net/DNS/ZoneFile/Fast.pm line 193
Net::DNS::ZoneFile::Fast::parse('file', '/var/tmp/example.com.hosts', 'soft_errors', 1) called at test.pl line 7
Line 193 of Fast.pm contains:
Net::DNS::RR->new_from_hash(%$z);
But should probably be:
Net::DNS::RR->new(%$z);
Contents of test.pl:
#!/usr/bin/perl
use Net::DNS;
use Net::DNS::ZoneFile::Fast;
my $file = "/var/tmp/example.com.hosts";
my $rrs = Net::DNS::ZoneFile::Fast::parse( file => $file, soft_errors => 1);
Contents of example.com.hosts:
$TTL 86400
@ IN SOA ns1.charter.com. ipaddressing.chartercom.com. (
2014103100 ; serial
7200 ; refresh (2 hour)
3600 ; retry (1 hour)
604800 ; expire (1 week)
86400 ) ; minimum or neg ttl (1 day)
IN NS ns1.charter.com.
IN NS ns2.charter.com.
IN NS ns3.charter.com.
IN NS ns4.charter.com.
@ MX 10 mail.chartercom.com.
Andrew White
Desk: 314.394-9594<sip:13143949594> | Cell: 314-452-4386<sip:1-314-452-4386> | Jabber<sip:andrew.white2@charter.com>
andrew.white2@charter.com<mailto:andrew.white2@charter.com>
Systems Engineer III, DAS DNS group
Charter Communications
12405 Powerscourt Drive<https://goo.gl/maps/AH2PXFKnaGU2>,<http://www.html5zombo.com/> St. Louis, MO 63131