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);
a><a class='active' href='/guix/log/gnu/packages/dico.scm'>log</a><a href='/guix/tree/gnu/packages/dico.scm?id=2c5bba139237bb19ab4061452eeb3e7fdcdb1142'>tree</a><a href='/guix/commit/gnu/packages/dico.scm?id=2c5bba139237bb19ab4061452eeb3e7fdcdb1142'>commit</a><a href='/guix/diff/gnu/packages/dico.scm?id=2c5bba139237bb19ab4061452eeb3e7fdcdb1142'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/gnu/packages/dico.scm'>
<input type='hidden' name='id' value='2c5bba139237bb19ab4061452eeb3e7fdcdb1142'/><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=2c5bba139237bb19ab4061452eeb3e7fdcdb1142'>root</a>/<a href='/guix/log/gnu?id=2c5bba139237bb19ab4061452eeb3e7fdcdb1142'>gnu</a>/<a href='/guix/log/gnu/packages?id=2c5bba139237bb19ab4061452eeb3e7fdcdb1142'>packages</a>/<a href='/guix/log/gnu/packages/dico.scm?id=2c5bba139237bb19ab4061452eeb3e7fdcdb1142'>dico.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/gnu/packages/dico.scm?id=2c5bba139237bb19ab4061452eeb3e7fdcdb1142&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2021-05-03 22:27:30 +0200'>2021-05-03</span></td><td><a href='/guix/commit/gnu/packages/dico.scm?id=6332ad5470ec88e1e443c12825abf9e8bea04154'>gnu: dico: Omit static libraries.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/dico.scm (dico)[arguments]: Add ‘--disable-static’ to
the #:configure-flags.
</span></span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2021-05-03 22:27:30 +0200'>2021-05-03</span></td><td><a href='/guix/commit/gnu/packages/dico.scm?id=dbfe885e115a5205a98284b6040f70850746a948'>gnu: dico: Update to 2.11.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/dico.scm (dico): Update to 2.11.
</span></span></td><td>Tobias Geerinckx-Rice</td></tr>
INE doesn't end in \n.
(%installer-log-line-hook): Do not add an extra newline.
(installer-log-line): Add an extra newline.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-10-20 10:50:50 +0200'>2022-10-20</span></td><td><a href='/guix/commit/gnu/installer/utils.scm?id=96bb00d20336f43fac2c42662e4b1d300e624738'>installer: Run the "guix system init" command in a PTY.</a><span class='msg-avail'>...<span class='msg-tooltip'>Fixes: &lt;https://issues.guix.gnu.org/55360&gt;

* gnu/installer/utils.scm (run-external-command-with-handler/tty): New
procedure.
(run-external-command-with-line-hooks, run-command): Add a TTY? argument.
* gnu/installer/final.scm (install-system): Call run-command with TTY?
argument set to #true.
</span></span></td><td>Mathieu Othacehe</td></tr>
<tr><td><span title='2022-09-22 16:00:29 +0200'>2022-09-22</span></td><td><a href='/guix/commit/gnu/installer/utils.scm?id=4814ec284f8a2870e6457c05f414ad31df4e3f57'>installer: Move &lt;secret&gt; to utils and use it for crypt passwords.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/installer/user.scm (&lt;secret&gt;, secret?, make-secret, secret-content): Move
to utils.scm.
* gnu/installer/utils.scm (&lt;secret&gt;, secret?, make-secret, secret-content):
Moved from user.scm.
* gnu/installer/newt/partition.scm (prompt-luks-passwords): Make password a
&lt;secret&gt;.
* gnu/installer/parted.scm (luks-format-and-open): Unwrap secret.

Signed-off-by: Mathieu Othacehe &lt;othacehe@gnu.org&gt;
</span></span></td><td>Josselin Poiret</td></tr>