[arch-commits] Commit in perl-net-dns-resolver-programmable/trunk (2 files)

[Evangelos Foutras]

    Date: Friday, June 2, 2017 @ 06:28:02
  Author: foutrelis
Revision: 297459

Do not use private Net::DNS API removed in Net-DNS-0.75

Added:
  perl-net-dns-resolver-programmable/trunk/new-net-dns.patch
Modified:
  perl-net-dns-resolver-programmable/trunk/PKGBUILD

-------------------+
 PKGBUILD          |   14 +++++++++++---
 new-net-dns.patch |   23 +++++++++++++++++++++++
 2 files changed, 34 insertions(+), 3 deletions(-)

Modified: PKGBUILD
===================================================================
--- PKGBUILD	2017-06-02 06:25:59 UTC (rev 297458)
+++ PKGBUILD	2017-06-02 06:28:02 UTC (rev 297459)
@@ -5,7 +5,7 @@
 pkgname=perl-net-dns-resolver-programmable
 _realname=Net-DNS-Resolver-Programmable
 pkgver=0.003
-pkgrel=8
+pkgrel=9
 pkgdesc="A Net::DNS::Resolver descendant class for offline emulation of DNS"
 arch=('any')
 license=('GPL' 'PerlArtistic')
@@ -13,9 +13,17 @@
 depends=('perl-net-dns' 'perl')
 makedepends=('perl-module-build')
 options=('!emptydirs')
-source=(http://search.cpan.org/CPAN/authors/id/J/JM/JMEHNLE/net-dns-resolver-programmable/${_realname}-v${pkgver}.tar.gz)
-md5sums=('8d44bf331d6115e7fb4ea21f6cf4b96b')
+source=(http://search.cpan.org/CPAN/authors/id/J/JM/JMEHNLE/net-dns-resolver-programmable/${_realname}-v${pkgver}.tar.gz
+        new-net-dns.patch)
+md5sums=('8d44bf331d6115e7fb4ea21f6cf4b96b'
+         '490dedc18d2ac97b945d9d8ddb9039a2')
 
+prepare() {
+  cd ${srcdir}/${_realname}-v${pkgver}
+  # https://rt.cpan.org/Public/Bug/Display.html?id=95901
+  patch -Np1 -i ../new-net-dns.patch
+}
+
 build() {
   cd ${srcdir}/${_realname}-v${pkgver}
   PERL_MM_USE_DEFAULT=1 perl Makefile.PL INSTALLDIRS=vendor

Added: new-net-dns.patch
===================================================================
--- new-net-dns.patch	                        (rev 0)
+++ new-net-dns.patch	2017-06-02 06:28:02 UTC (rev 297459)
@@ -0,0 +1,23 @@
+Description: deal with changes in Net::DNS >= 0.75
+Origin: CPAN RT
+Bug: https://rt.cpan.org/Public/Bug/Display.html?id=95901
+Bug-Debian: https://bugs.debian.org/752988
+Author: Willen <NLNETLABS at cpan.org>
+Reviewed-by: gregor herrmann <gregoa at debian.org>
+Last-Update: 2014-06-29
+
+--- a/lib/Net/DNS/Resolver/Programmable.pm
++++ b/lib/Net/DNS/Resolver/Programmable.pm
+@@ -204,8 +204,10 @@
+     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::rcodesbyname{$result})
++         or defined($Net::DNS::Parameters::rcodebyname{$result})) {
+         # Valid RCODE, return a packet:
+         
+         $aa     = TRUE      if not defined($aa);