[packages/perl-Net-DNS] - up to 0.83

[adwol]

commit a385dcbc51efc244d17fbed65bb7551506a07924
Author: Adam Osuchowski <adwol at pld-linux.org>
Date:   Fri Mar 6 12:41:00 2015 +0100

    - up to 0.83

 perl-Net-DNS-ignore-resolv_conf-open-errors.patch | 15 ++++++++-------
 perl-Net-DNS.spec                                 |  6 +++---
 2 files changed, 11 insertions(+), 10 deletions(-)
---
diff --git a/perl-Net-DNS.spec b/perl-Net-DNS.spec
index 821e032..ace78e0 100644
--- a/perl-Net-DNS.spec
+++ b/perl-Net-DNS.spec
@@ -9,13 +9,13 @@
 Summary:	Net::DNS - Perl interface to the DNS resolver
 Summary(pl.UTF-8):	Net::DNS - interfejs perlowy do resolvera DNS
 Name:		perl-Net-DNS
-Version:	0.72
-Release:	4
+Version:	0.83
+Release:	1
 # same as perl
 License:	GPL v1+ or Artistic
 Group:		Development/Languages/Perl
 Source0:	http://www.cpan.org/modules/by-module/Net/%{pdir}-%{pnam}-%{version}.tar.gz
-# Source0-md5:	393e48ec6f28abe5ed30204276e02775
+# Source0-md5:	f1d48107ff6b366479ad035783486d7a
 Patch0:		%{name}-ignore-resolv_conf-open-errors.patch
 URL:		http://search.cpan.org/dist/Net-DNS/
 BuildRequires:	perl-devel >= 1:5.8.0
diff --git a/perl-Net-DNS-ignore-resolv_conf-open-errors.patch b/perl-Net-DNS-ignore-resolv_conf-open-errors.patch
index fca6d13..d8d0a65 100644
--- a/perl-Net-DNS-ignore-resolv_conf-open-errors.patch
+++ b/perl-Net-DNS-ignore-resolv_conf-open-errors.patch
@@ -1,11 +1,12 @@
---- Net-DNS-0.65.orig/lib/Net/DNS/Resolver/UNIX.pm	2009-01-26 18:31:42.000000000 +0100
-+++ Net-DNS-0.65/lib/Net/DNS/Resolver/UNIX.pm	2010-01-03 22:51:12.393805390 +0100
-@@ -21,7 +21,17 @@
+diff -ruN Net-DNS-0.83.orig/lib/Net/DNS/Resolver/UNIX.pm Net-DNS-0.83/lib/Net/DNS/Resolver/UNIX.pm
+--- Net-DNS-0.83.orig/lib/Net/DNS/Resolver/UNIX.pm	2015-02-26 16:01:55.000000000 +0100
++++ Net-DNS-0.83/lib/Net/DNS/Resolver/UNIX.pm	2015-03-06 12:37:21.217583476 +0100
+@@ -32,7 +32,17 @@
  sub init {
- 	my ($class) = @_;
+ 	my $defaults = shift->defaults;
  
 +	eval {
- 	$class->read_config_file($resolv_conf) if -f $resolv_conf && -r _;
+ 	$defaults->read_config_file($resolv_conf) if -f $resolv_conf && -r _;
 +	};
 +	if ( $@ ) {
 +		if ( $@ =~ /^Could not open / ) {
@@ -16,5 +17,5 @@
 +		}
 +	}
  
- 	foreach my $dir (@config_path) {
- 		my $file = "$dir/$dotfile";
+ 	$defaults->domain( _untaint $defaults->domain );	# untaint config values
+ 	$defaults->searchlist( _untaint $defaults->searchlist );
================================================================

---- gitweb:

http://git.pld-linux.org/gitweb.cgi/packages/perl-Net-DNS.git/commitdiff/a385dcbc51efc244d17fbed65bb7551506a07924