perl-Net-DNS/perl-Net-DNS-bz437681.patch
2008-04-09 14:54:20 +00:00

25 lines
1.0 KiB
Diff

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;
+ Socket6->import(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;