[151166] trunk/dports/perl/p5-net-dns-resolver-programmable

[devans at macports.org]

Revision: 151166
          https://trac.macports.org/changeset/151166
Author:   devans at macports.org
Date:     2016-08-08 22:29:09 -0700 (Mon, 08 Aug 2016)
Log Message:
-----------
p5-net-dns-resolver-programmable: remove v-string version workarounds, patch for compatibility with Net::DNS 0.75+, comments, increment revision.

Modified Paths:
--------------
    trunk/dports/perl/p5-net-dns-resolver-programmable/Portfile

Added Paths:
-----------
    trunk/dports/perl/p5-net-dns-resolver-programmable/files/
    trunk/dports/perl/p5-net-dns-resolver-programmable/files/net-dns-0.75.patch

Modified: trunk/dports/perl/p5-net-dns-resolver-programmable/Portfile
===================================================================
--- trunk/dports/perl/p5-net-dns-resolver-programmable/Portfile	2016-08-09 05:25:16 UTC (rev 151165)
+++ trunk/dports/perl/p5-net-dns-resolver-programmable/Portfile	2016-08-09 05:29:09 UTC (rev 151166)
@@ -1,18 +1,12 @@
 # -*- coding: utf-8; mode: tcl; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- vim:fenc=utf-8:ft=tcl:et:sw=4:ts=4:sts=4
 # $Id$
 
-# This comment was inserted on 20160713 to force reindexing of
-# this port after the default homepage definition in the perl5
-# PortGroup was changed to use metacpan.org (r150080).
-# Reindexing is necessary for the new definition to take effect.
-# This comment may be removed in subsequent updates of this port.
-
 PortSystem          1.0
 PortGroup           perl5 1.0
 
 perl5.branches      5.22 5.24
-perl5.setup         Net-DNS-Resolver-Programmable 0.003
-revision            4
+perl5.setup         Net-DNS-Resolver-Programmable v0.003
+revision            5
 license             {Artistic-1 GPL-2+}
 platforms           darwin
 supported_archs     noarch
@@ -26,7 +20,6 @@
                     supplied, or arbitrary code may be specified as a \
                     means for retrieving DNS records, or even \
                     generating them on the fly.
-distname            ${perl5.module}-v${perl5.moduleversion}
 
 checksums           rmd160  6b93ce7174d1f61ec7411e31e7d61c6a003cd6ec \
                     sha256  8d402260941f259c83bf1b2564408e75288df028f604136c29da11a9a6a076ec
@@ -36,7 +29,9 @@
                     port:p${perl5.major}-net-dns \
                     port:p${perl5.major}-version
 
+# patch for compatibility with Net::DNS 0.75+
+# https://rt.cpan.org/Public/Bug/Display.html?id=95901
+    patchfiles      net-dns-0.75.patch
+
     perl5.use_module_build
 }
-
-livecheck.version   v${perl5.moduleversion}

Added: trunk/dports/perl/p5-net-dns-resolver-programmable/files/net-dns-0.75.patch
===================================================================
--- trunk/dports/perl/p5-net-dns-resolver-programmable/files/net-dns-0.75.patch	                        (rev 0)
+++ trunk/dports/perl/p5-net-dns-resolver-programmable/files/net-dns-0.75.patch	2016-08-09 05:29:09 UTC (rev 151166)
@@ -0,0 +1,17 @@
+diff --git a/lib/Net/DNS/Resolver/Programmable.pm b/lib/Net/DNS/Resolver/Programmable.pm
+index 1af72ce..e09a2f0 100644
+--- lib/Net/DNS/Resolver/Programmable.pm
++++ lib/Net/DNS/Resolver/Programmable.pm
+@@ -204,8 +204,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);
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20160808/ddf541a0/attachment.html>