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.},