| 1 | perl-net-dns-resolver-programmable used the undocumented and internal
|
| 2 | method Net::DNS::rcodesbyname [0], and that interface is no longer
|
| 3 | exposed.
|
| 4 |
|
| 5 | This patch, copied from [1], makes the program check for the existence
|
| 6 | of the method before trying to use it.
|
| 7 |
|
| 8 | [0]
|
| 9 | <https://rt.cpan.org/Public/Bug/Display.html?id=95901>
|
| 10 |
|
| 11 | [1]
|
| 12 | <https://rt.cpan.org/Public/Bug/Display.html?id=95901#txn-1575108>
|
| 13 |
|
| 14 | diff --git a/lib/Net/DNS/Resolver/Programmable.pm b/lib/Net/DNS/Resolver/Programmable.pm
|
| 15 | index 1af72ce..e09a2f0 100644
|
| 16 | |
| 17 | |
| 18 | @@ -203,8 +203,10 @@ sub send {
|
| 19 | if (defined(my $resolver_code = $self->{resolver_code})) {
|
| 20 | ($result, $aa, @answer_rrs) = $resolver_code->($domain, $rr_type, $class);
|
| 21 | }
|
| 22 | -
|
| 23 | - if (not defined($result) or defined($Net::DNS::rcodesbyname{$result})) {
|
| 24 | +
|
| 25 | + if (not defined($result)
|
| 26 | + or defined($Net::DNS::Parameters::rcodebyname{$result})
|
| 27 | + or defined($Net::DNS::rcodesbyname{$result})) {
|
| 28 | # Valid RCODE, return a packet:
|
| 29 |
|
| 30 | $aa = TRUE if not defined($aa);
|