fix AF_INET6/PF_INET6 redefine noise (bz 437681)

This commit is contained in:
Tom Callaway 2008-04-09 14:36:32 +00:00
parent 0efa28edb8
commit 30b03adc50
2 changed files with 30 additions and 1 deletions

View File

@ -0,0 +1,24 @@
diff -up Net-DNS-0.63/lib/Net/DNS/Resolver/Base.pm.BAD Net-DNS-0.63/lib/Net/DNS/Resolver/Base.pm
--- Net-DNS-0.63/lib/Net/DNS/Resolver/Base.pm.BAD 2008-04-09 10:19:50.000000000 -0400
+++ Net-DNS-0.63/lib/Net/DNS/Resolver/Base.pm 2008-04-09 10:20:15.000000000 -0400
@@ -62,7 +62,7 @@ BEGIN {
# INET6 prior to 2.01 will not work; sorry.
eval {require IO::Socket::INET6; IO::Socket::INET6->VERSION("2.00");}
) {
- import Socket6;
+ use Socket6 (qw(getaddrinfo));
$has_inet6=1;
}else{
$has_inet6=0;
diff -up Net-DNS-0.63/lib/Net/DNS/Nameserver.pm.BAD Net-DNS-0.63/lib/Net/DNS/Nameserver.pm
--- Net-DNS-0.63/lib/Net/DNS/Nameserver.pm.BAD 2008-04-09 10:23:49.000000000 -0400
+++ Net-DNS-0.63/lib/Net/DNS/Nameserver.pm 2008-04-09 10:31:14.000000000 -0400
@@ -33,7 +33,7 @@ BEGIN {
} elsif ( eval {require Socket6;} &&
# INET6 earlier than V2.01 will not work; sorry.
eval {require IO::Socket::INET6; IO::Socket::INET6->VERSION("2.01");} ) {
- import Socket6;
+ import IO::Socket::INET6;
$has_inet6 = 1;
} else {
$has_inet6=0;

View File

@ -1,11 +1,12 @@
Name: perl-Net-DNS Name: perl-Net-DNS
Version: 0.63 Version: 0.63
Release: 1%{?dist} Release: 2%{?dist}
Summary: DNS resolver modules for Perl Summary: DNS resolver modules for Perl
License: GPL+ or Artistic License: GPL+ or Artistic
Group: Development/Libraries Group: Development/Libraries
URL: http://www.net-dns.org/ URL: http://www.net-dns.org/
Source0: http://www.cpan.org/authors/id/O/OL/OLAF/Net-DNS-%{version}.tar.gz Source0: http://www.cpan.org/authors/id/O/OL/OLAF/Net-DNS-%{version}.tar.gz
Patch0: perl-Net-DNS-bz437681.patch
BuildRequires: perl(Digest::HMAC), perl(ExtUtils::MakeMaker), perl(Test::More), perl(Net::IP) BuildRequires: perl(Digest::HMAC), perl(ExtUtils::MakeMaker), perl(Test::More), perl(Net::IP)
BuildRequires: perl(Test::Pod) BuildRequires: perl(Test::Pod)
BuildRequires: perl(Digest::BubbleBabble) BuildRequires: perl(Digest::BubbleBabble)
@ -35,6 +36,7 @@ objects.
%prep %prep
%setup -q -n Net-DNS-%{version} %setup -q -n Net-DNS-%{version}
%patch0 -p1
%build %build
%{__perl} Makefile.PL INSTALLDIRS=vendor --no-online-tests %{__perl} Makefile.PL INSTALLDIRS=vendor --no-online-tests
@ -80,6 +82,9 @@ rm -rf $RPM_BUILD_ROOT
%changelog %changelog
* Wed Apr 9 2008 Tom "spot" Callaway <tcallawa@redhat.com> - 0.63-2
- fix AF_INET6/PF_INET6 redefine noise (bz 437681)
* Wed Mar 19 2008 Marcela Maslanova <mmaslano@redhat.com> - 0.63-1 * Wed Mar 19 2008 Marcela Maslanova <mmaslano@redhat.com> - 0.63-1
- upgrade on new upstream version which fix CVE-2007-6341 - no security impact. - upgrade on new upstream version which fix CVE-2007-6341 - no security impact.