perl-net-dns-resolver-programmable used the undocumented and internal
method Net::DNS::rcodesbyname [0], and that interface is no longer
exposed.

This patch, copied from [1], makes the program check for the existence
of the method before trying to use it.

[0]
<https://rt.cpan.org/Public/Bug/Display.html?id=95901>

[1]
<https://rt.cpan.org/Public/Bug/Display.html?id=95901#txn-1575108>

diff --git a/lib/Net/DNS/Resolver/Programmable.pm b/lib/Net/DNS/Resolver/Programmable.pm
index 1af72ce..e09a2f0 100644
--- a/lib/Net/DNS/Resolver/Programmable.pm
+++ b/lib/Net/DNS/Resolver/Programmable.pm
@@ -203,8 +203,10 @@ sub send {
     if (defined(my $resolver_code = $self->{resolver_code})) {
         ($result, $aa, @answer_rrs) = $resolver_code->($domain, $rr_type, $class);
     }
-    
-    if (not defined($result) or defined($Net::DNS::rcodesbyname{$result})) {
+
+    if (not defined($result)
+         or defined($Net::DNS::Parameters::rcodebyname{$result})
+         or defined($Net::DNS::rcodesbyname{$result})) {
         # Valid RCODE, return a packet:
         
         $aa     = TRUE      if not defined($aa);
lass='active' href='/guix/log/tests/inferior.scm'>log</a><a href='/guix/tree/tests/inferior.scm?id=b61f3776eb2560364d25d78d40213aa1dcb1602f'>tree</a><a href='/guix/commit/tests/inferior.scm?id=b61f3776eb2560364d25d78d40213aa1dcb1602f'>commit</a><a href='/guix/diff/tests/inferior.scm?id=b61f3776eb2560364d25d78d40213aa1dcb1602f'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/tests/inferior.scm'>
<input type='hidden' name='id' value='b61f3776eb2560364d25d78d40213aa1dcb1602f'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=b61f3776eb2560364d25d78d40213aa1dcb1602f'>root</a>/<a href='/guix/log/tests?id=b61f3776eb2560364d25d78d40213aa1dcb1602f'>tests</a>/<a href='/guix/log/tests/inferior.scm?id=b61f3776eb2560364d25d78d40213aa1dcb1602f'>inferior.scm</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/tests/inferior.scm?id=b61f3776eb2560364d25d78d40213aa1dcb1602f&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2022-07-08 13:51:34 +0100'>2022-07-08</span></td><td><a href='/guix/commit/tests/inferior.scm?id=b4c4a6acb1204ee53e95744236ee89985db32f91'>guix: inferior: Fix the behaviour of open-inferior #:error-port.</a><span class='msg-avail'>...<span class='msg-tooltip'>I'm looking at this as the Guix Data Service uses this behaviour to record and
display logs from inferior processes.

* guix/inferior.scm (open-bidirectional-pipe): Call dup2 for file descriptor
2, passing either the file number for the current error port, or a file
descriptor for /dev/null.
* tests/inferior.scm ("#:error-port stderr", "#:error-port pipe"): Add two new
tests that cover some of the #:error-port behaviour.
</span></span></td><td>Christopher Baines</td></tr>
<tr><td><span title='2022-05-20 18:46:07 +0200'>2022-05-20</span></td><td><a href='/guix/commit/tests/inferior.scm?id=a4994d739306abcf3f36706012fb88b35a970e6b'>inferior: Close duplicate socketpair file descriptor.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/inferior.scm (open-bidirectional-pipe): Pass SOCK_CLOEXEC to
'socketpair'.
* tests/inferior.scm ("close-inferior"): Add test.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2021-05-15 12:14:47 +0100'>2021-05-15</span></td><td><a href='/guix/commit/tests/inferior.scm?id=97d615b1761c2054561057f6b56e2a0caed13aa4'>inferior: Support querying package replacements.</a><span class='msg-avail'>...<span class='msg-tooltip'>I'm looking at this to help with adding support for looking up package
replacements to store in the Guix Data Service.

* guix/inferior.scm (inferior-package-replacement): New procedure.
* tests/inferior.scm ("inferior-package-replacement"): New test.
</span></span></td><td>Christopher Baines</td></tr>
<tr><td><span title='2021-04-29 01:22:04 +0200'>2021-04-29</span></td><td><a href='/guix/commit/tests/inferior.scm?id=9dc1c591a4fe90e823ed69fb52c055b98d4699f6'>inferior: Make sure test refers to guile@3.0.</a><span class='msg-avail'>...<span class='msg-tooltip'>* tests/inferior.scm ("inferior-package-inputs"): Compare with
GUILE-3.0-LATEST since that's what 'lookup-inferior-packages' returns.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2021-01-21 00:14:38 +0100'>2021-01-21</span></td><td><a href='/guix/commit/tests/inferior.scm?id=98d3abe7440717724263cacca8c36e9f43d53fcc'>repl: Fix exception handling for interpreted code.</a><span class='msg-avail'>...<span class='msg-tooltip'>The 'stack' variable could be #f when code is interpreted, which in
practice happens when running in "legacy" mode--i.e., when
'open-inferior' invokes "guile" instead of "guix repl".

* guix/repl.scm (send-repl-response)[handle-exception]: Check whether
STACK is true before passing it to 'stack-&gt;frames'.
* tests/inferior.scm ("&amp;inferior-exception, legacy mode"): New test.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2021-01-21 00:14:38 +0100'>2021-01-21</span></td><td><a href='/guix/commit/tests/inferior.scm?id=074a201c33f822a7ab59512e7ee8b301204ff732'>inferior: Add 'inferior-eval-with-store' tests.</a><span class='msg-avail'>...<span class='msg-tooltip'>* tests/inferior.scm ("inferior-eval-with-store, exception")
("inferior-eval-with-store, not a procedure"): New tests.
</span></span></td><td>Ludovic Courtès</td></tr>