replace usage of deprecated function typearray2typebm with type2bm
--- a/Fast.pm
+++ b/Fast.pm
@@ -975,7 +975,7 @@ sub parse_line
 		 nxtdname  => $nxtdname,
 		 typelist  => $typelist,
 		 typebm    =>
-		 Net::DNS::RR::NSEC::_typearray2typebm(split(/\s+/,$typelist)),
+		 Net::DNS::RR::NSEC::_type2bm(split(/\s+/,$typelist)),
 		};
 	  } else {
 	      error("bad NSEC data");
@@ -1007,7 +1007,7 @@ sub parse_line
                  saltlength  => int(length($salt)/2),
                  typelist    => $typelist,
                  typebm      =>
-                 Net::DNS::RR::NSEC::_typearray2typebm(split(/\s+/,$typelist)),
+                 Net::DNS::RR::NSEC::_type2bm(split(/\s+/,$typelist)),
                 };
 # multi-line
           } elsif (/\G\s*(\d+)\s+(\d+)\s+(\d+)\s+([-0-9A-Fa-f]+)\s+\(/gc) {
@@ -1355,7 +1355,7 @@ sub parse_nsec3
 	 $typelist = join(" ",sort split(/\s+/,$typelist));
          $nsec3->{ 'typelist' } = $typelist;
 	 $nsec3->{ 'typebm' } =
-	     Net::DNS::RR::NSEC::_typearray2typebm(split(/\s+/,$typelist));
+	     Net::DNS::RR::NSEC::_type2bm(split(/\s+/,$typelist));
 	 push @zone, $nsec3; 
 	 # we're done
 	 $parse = \&parse_line;