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