Index: Fast.pm
===================================================================
--- Fast.pm (revision 7286)
+++ Fast.pm (working copy)
@@ -46,7 +46,7 @@
use Net::DNS::RR;
use MIME::Base64;
-$VERSION = '1.16';
+$VERSION = '1.18';
my $MAXIMUM_TTL = 0x7fffffff;
@@ -61,7 +61,7 @@
# dots in usernames. Keeping the original version here for easy reference.
#
# my $pat_maybefullname = qr{[-\w\$\d\/*]+(?:\.[-\w\$\d\/]+)*\.?};
-my $pat_maybefullname = qr{[-\w\$\d\/*\\]+(?:\.[-\w\$\d\/]+)*\.?};
+my $pat_maybefullname = qr{[-\+\w\$\d\/*\\]+(?:\.[-\+\w\$\d\/]+)*\.?};
my $debug;
my $domain;
@@ -198,8 +198,7 @@
$z->{mbox} = uc $z->{mbox} if defined $z->{mbox};
$z->{txtdname} = uc $z->{txtdname} if defined $z->{txtdname};
}
- my $newrec =
- Net::DNS::RR->new_from_hash(%$z);
+ my $newrec = Net::DNS::RR->new(%$z);
if ($newrec->{'type'} eq 'DNSKEY') {
if (ref($newrec) ne 'Net::DNS::RR::DNSKEY') {
Index: t/rrs.t
===================================================================
--- t/rrs.t (revision 7286)
+++ t/rrs.t (working copy)
@@ -52,6 +52,7 @@
q{. IN SOA dns1.acme.com hostmaster.acme.com. ( 1 1 1 1 1 )},
q{. IN SOA dns1 hostmaster. ( 1 1 1 1 1 )},
q{. IN SOA @ hostmaster.acme.com. ( 1 1 1 1 1 )},
+ q{. IN SOA @ hostmaster+foo.acme.com. ( 1 1 1 1 1 )},
q{acme.com. IN AAAA 2001:688:0:102::1:2},
q{acme.com. IN AAAA 2001:688:0:102::3},
q{acme.com. IN RP abuse.acme.com. acme.com.},