| 1 |
diff -up Net-DNS-0.63/lib/Net/DNS/Resolver/Base.pm.BAD Net-DNS-0.63/lib/Net/DNS/Resolver/Base.pm
|
| 2 |
--- Net-DNS-0.63/lib/Net/DNS/Resolver/Base.pm.BAD 2008-04-09 10:19:50.000000000 -0400
|
| 3 |
+++ Net-DNS-0.63/lib/Net/DNS/Resolver/Base.pm 2008-04-09 10:20:15.000000000 -0400
|
| 4 |
@@ -62,7 +62,7 @@ BEGIN {
|
| 5 |
# INET6 prior to 2.01 will not work; sorry.
|
| 6 |
eval {require IO::Socket::INET6; IO::Socket::INET6->VERSION("2.00");}
|
| 7 |
) {
|
| 8 |
- import Socket6;
|
| 9 |
+ Socket6->import(qw(getaddrinfo));
|
| 10 |
$has_inet6=1;
|
| 11 |
}else{
|
| 12 |
$has_inet6=0;
|
| 13 |
diff -up Net-DNS-0.63/lib/Net/DNS/Nameserver.pm.BAD Net-DNS-0.63/lib/Net/DNS/Nameserver.pm
|
| 14 |
--- Net-DNS-0.63/lib/Net/DNS/Nameserver.pm.BAD 2008-04-09 10:23:49.000000000 -0400
|
| 15 |
+++ Net-DNS-0.63/lib/Net/DNS/Nameserver.pm 2008-04-09 10:31:14.000000000 -0400
|
| 16 |
@@ -33,7 +33,7 @@ BEGIN {
|
| 17 |
} elsif ( eval {require Socket6;} &&
|
| 18 |
# INET6 earlier than V2.01 will not work; sorry.
|
| 19 |
eval {require IO::Socket::INET6; IO::Socket::INET6->VERSION("2.01");} ) {
|
| 20 |
- import Socket6;
|
| 21 |
+ import IO::Socket::INET6;
|
| 22 |
$has_inet6 = 1;
|
| 23 |
} else {
|
| 24 |
$has_inet6=0;
|