[arch-commits] Commit in perl-net-dns-resolver-programmable/repos/staging-any (3 files)

[Evangelos Foutras]

    Date: Friday, June 2, 2017 @ 06:28:14
  Author: foutrelis
Revision: 297460

archrelease: copy trunk to staging-any

Added:
  perl-net-dns-resolver-programmable/repos/staging-any/PKGBUILD
    (from rev 297459, perl-net-dns-resolver-programmable/trunk/PKGBUILD)
  perl-net-dns-resolver-programmable/repos/staging-any/new-net-dns.patch
    (from rev 297459, perl-net-dns-resolver-programmable/trunk/new-net-dns.patch)
Deleted:
  perl-net-dns-resolver-programmable/repos/staging-any/PKGBUILD

-------------------+
 PKGBUILD          |   64 +++++++++++++++++++++++++++++-----------------------
 new-net-dns.patch |   23 ++++++++++++++++++
 2 files changed, 59 insertions(+), 28 deletions(-)

Deleted: PKGBUILD
===================================================================
--- PKGBUILD	2017-06-02 06:28:02 UTC (rev 297459)
+++ PKGBUILD	2017-06-02 06:28:14 UTC (rev 297460)
@@ -1,28 +0,0 @@
-# $Id$
-# Maintainer: Felix Yan <felixonmars at gmail.com>
-# Contributor: Jan de Groot <jgc at archlinux.org>
-
-pkgname=perl-net-dns-resolver-programmable
-_realname=Net-DNS-Resolver-Programmable
-pkgver=0.003
-pkgrel=8
-pkgdesc="A Net::DNS::Resolver descendant class for offline emulation of DNS"
-arch=('any')
-license=('GPL' 'PerlArtistic')
-url="http://search.cpan.org/dist/${_realname}/"
-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')
-
-build() {
-  cd ${srcdir}/${_realname}-v${pkgver}
-  PERL_MM_USE_DEFAULT=1 perl Makefile.PL INSTALLDIRS=vendor
-  make
-}
-
-package() {
-  cd ${srcdir}/${_realname}-v${pkgver}
-  make install DESTDIR=${pkgdir} || return 1
-}

Copied: perl-net-dns-resolver-programmable/repos/staging-any/PKGBUILD (from rev 297459, perl-net-dns-resolver-programmable/trunk/PKGBUILD)
===================================================================
--- PKGBUILD	                        (rev 0)
+++ PKGBUILD	2017-06-02 06:28:14 UTC (rev 297460)
@@ -0,0 +1,36 @@
+# $Id$
+# Maintainer: Felix Yan <felixonmars at gmail.com>
+# Contributor: Jan de Groot <jgc at archlinux.org>
+
+pkgname=perl-net-dns-resolver-programmable
+_realname=Net-DNS-Resolver-Programmable
+pkgver=0.003
+pkgrel=9
+pkgdesc="A Net::DNS::Resolver descendant class for offline emulation of DNS"
+arch=('any')
+license=('GPL' 'PerlArtistic')
+url="http://search.cpan.org/dist/${_realname}/"
+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
+        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
+  make
+}
+
+package() {
+  cd ${srcdir}/${_realname}-v${pkgver}
+  make install DESTDIR=${pkgdir} || return 1
+}

Copied: perl-net-dns-resolver-programmable/repos/staging-any/new-net-dns.patch (from rev 297459, perl-net-dns-resolver-programmable/trunk/new-net-dns.patch)
===================================================================
--- new-net-dns.patch	                        (rev 0)
+++ new-net-dns.patch	2017-06-02 06:28:14 UTC (rev 297460)
@@ -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);