<pre style='margin:0'>
David B. Evans (dbevans) pushed a commit to branch master
in repository macports-ports.

</pre>
<p><a href="https://github.com/macports/macports-ports/commit/24ed3496417f18f32a9e0c7ed260bbcc7b8ef520">https://github.com/macports/macports-ports/commit/24ed3496417f18f32a9e0c7ed260bbcc7b8ef520</a></p>
<pre style="white-space: pre; background: #F8F8F8"><span style='display:block; white-space:pre;color:#808000;'>commit 24ed3496417f18f32a9e0c7ed260bbcc7b8ef520
</span>Author: David B. Evans <devans@macports.org>
AuthorDate: Sat Jul 22 19:25:46 2017 -0700

<span style='display:block; white-space:pre;color:#404040;'>    p5-net-dns-resolver-programmable: update to version 0.008
</span><span style='display:block; white-space:pre;color:#404040;'>    
</span><span style='display:block; white-space:pre;color:#404040;'>    * remove outdated patch
</span><span style='display:block; white-space:pre;color:#404040;'>    * no longer uses module build
</span>---
 perl/p5-net-dns-resolver-programmable/Portfile          | 13 +++----------
 .../files/net-dns-0.75.patch                            | 17 -----------------
 2 files changed, 3 insertions(+), 27 deletions(-)

<span style='display:block; white-space:pre;color:#808080;'>diff --git a/perl/p5-net-dns-resolver-programmable/Portfile b/perl/p5-net-dns-resolver-programmable/Portfile
</span><span style='display:block; white-space:pre;color:#808080;'>index eb9cca1..a6715a2 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/perl/p5-net-dns-resolver-programmable/Portfile
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/perl/p5-net-dns-resolver-programmable/Portfile
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -4,8 +4,7 @@ PortSystem          1.0
</span> PortGroup           perl5 1.0
 
 perl5.branches      5.24 5.26
<span style='display:block; white-space:pre;background:#ffe0e0;'>-perl5.setup         Net-DNS-Resolver-Programmable v0.003
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-revision            5
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+perl5.setup         Net-DNS-Resolver-Programmable 0.008
</span> license             {Artistic-1 GPL-2+}
 platforms           darwin
 supported_archs     noarch
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -20,17 +19,11 @@ long_description    Net::DNS::Resolver::Programmable is a \
</span>                     means for retrieving DNS records, or even \
                     generating them on the fly.
 
<span style='display:block; white-space:pre;background:#ffe0e0;'>-checksums           rmd160  6b93ce7174d1f61ec7411e31e7d61c6a003cd6ec \
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-                    sha256  8d402260941f259c83bf1b2564408e75288df028f604136c29da11a9a6a076ec
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+checksums           rmd160  6c48246da7e281405022221aaad9479cca79c844 \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                    sha256  9d3e411e9066c82726947ef2338c211667214fc897a4b9fcfa5dc91adbd39b93
</span> 
 if {${perl5.major} != ""} {
     depends_lib-append \
                     port:p${perl5.major}-net-dns \
                     port:p${perl5.major}-version
<span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-# patch for compatibility with Net::DNS 0.75+
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-# https://rt.cpan.org/Public/Bug/Display.html?id=95901
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-    patchfiles      net-dns-0.75.patch
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-    perl5.use_module_build
</span> }
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/perl/p5-net-dns-resolver-programmable/files/net-dns-0.75.patch b/perl/p5-net-dns-resolver-programmable/files/net-dns-0.75.patch
</span>deleted file mode 100644
<span style='display:block; white-space:pre;color:#808080;'>index 7df99a9..0000000
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/perl/p5-net-dns-resolver-programmable/files/net-dns-0.75.patch
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ /dev/null
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1,17 +0,0 @@
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-diff --git a/lib/Net/DNS/Resolver/Programmable.pm b/lib/Net/DNS/Resolver/Programmable.pm
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-index 1af72ce..e09a2f0 100644
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>---- lib/Net/DNS/Resolver/Programmable.pm
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+++ lib/Net/DNS/Resolver/Programmable.pm
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -204,8 +204,10 @@ sub send {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-     if (defined(my $resolver_code = $self->{resolver_code})) {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-         ($result, $aa, @answer_rrs) = $resolver_code->($domain, $rr_type, $class);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-     }
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--    
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--    if (not defined($result) or defined($Net::DNS::rcodesbyname{$result})) {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+    if (not defined($result)
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+         or defined($Net::DNS::Parameters::rcodebyname{$result})
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+         or defined($Net::DNS::rcodesbyname{$result})) {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-         # Valid RCODE, return a packet:
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-         
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-         $aa     = TRUE      if not defined($aa);
</span></pre><pre style='margin:0'>

</pre>