[packages/perl-Net-DNS] - up to 0.83
adwol
adwol at pld-linux.org
Fri Mar 6 12:41:26 CET 2015
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
More information about the pld-cvs-commit
mailing list