- up to 0.83

diff --git a/perl-Net-DNS-ignore-resolv_conf-open-errors.patch b/perl-Net-DNS-ignore-resolv_conf-open-errors.patch
index fca6d13ea51d3a9cca1d66aa926d96e668a3baa1..d8d0a65194a77fadc920262bb6c7fb597bbfa1ed 100644 (file)
--- 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 );

diff --git a/perl-Net-DNS.spec b/perl-Net-DNS.spec
index 821e0322d6a940187125d3982ece72206be7a56c..ace78e08052ddd20fa7118a95c936c2fec75250e 100644 (file)
--- 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