From 30b03adc50eb64835f6dcd48488adf770ffbfa32 Mon Sep 17 00:00:00 2001
From: Tom Callaway <spot@fedoraproject.org>
Date: Wed, 9 Apr 2008 14:36:32 +0000
Subject: [PATCH] fix AF_INET6/PF_INET6 redefine noise (bz 437681)

---
 perl-Net-DNS-bz437681.patch | 24 ++++++++++++++++++++++++
 perl-Net-DNS.spec           |  7 ++++++-
 2 files changed, 30 insertions(+), 1 deletion(-)
 create mode 100644 perl-Net-DNS-bz437681.patch

diff --git a/perl-Net-DNS-bz437681.patch b/perl-Net-DNS-bz437681.patch
new file mode 100644
index 0000000..813f480
--- /dev/null
+++ b/perl-Net-DNS-bz437681.patch
@@ -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;
diff --git a/perl-Net-DNS.spec b/perl-Net-DNS.spec
index 550ec51..075a5cc 100644
--- a/perl-Net-DNS.spec
+++ b/perl-Net-DNS.spec
@@ -1,11 +1,12 @@
 Name: perl-Net-DNS
 Version: 0.63
-Release: 1%{?dist}
+Release: 2%{?dist}
 Summary: DNS resolver modules for Perl
 License: GPL+ or Artistic
 Group: Development/Libraries
 URL: http://www.net-dns.org/
 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(Test::Pod)
 BuildRequires: perl(Digest::BubbleBabble)
@@ -35,6 +36,7 @@ objects.
 
 %prep
 %setup -q -n Net-DNS-%{version} 
+%patch0 -p1
 
 %build
 %{__perl} Makefile.PL INSTALLDIRS=vendor --no-online-tests
@@ -80,6 +82,9 @@ rm -rf $RPM_BUILD_ROOT
 
 
 %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
 - upgrade on new upstream version which fix CVE-2007-6341 - no security impact.