1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
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;
|
