| … | |
… | |
| 24 | package AnyEvent::DNS; |
24 | package AnyEvent::DNS; |
| 25 | |
25 | |
| 26 | no warnings; |
26 | no warnings; |
| 27 | use strict; |
27 | use strict; |
| 28 | |
28 | |
| 29 | use AnyEvent::Util (); |
29 | use AnyEvent::Socket (); |
| 30 | use AnyEvent::Handle (); |
30 | use AnyEvent::Handle (); |
| 31 | |
31 | |
| 32 | =item AnyEvent::DNS::addr $node, $service, $family, $type, $cb->(@addrs) |
32 | =item AnyEvent::DNS::addr $node, $service, $family, $type, $cb->(@addrs) |
| 33 | |
33 | |
| 34 | NOT YET IMPLEMENTED |
34 | NOT YET IMPLEMENTED |
| … | |
… | |
| 776 | }), sub { |
776 | }), sub { |
| 777 | my ($res) = @_; |
777 | my ($res) = @_; |
| 778 | |
778 | |
| 779 | if ($res->{tc}) { |
779 | if ($res->{tc}) { |
| 780 | # success, but truncated, so use tcp |
780 | # success, but truncated, so use tcp |
| 781 | AnyEvent::Util::tcp_connect +(Socket::inet_ntoa $server), 53, sub { |
781 | AnyEvent::Socket::tcp_connect +(Socket::inet_ntoa $server), 53, sub { |
| 782 | my ($fh) = @_ |
782 | my ($fh) = @_ |
| 783 | or return $self->_exec ($req, $retry + 1); |
783 | or return $self->_exec ($req, $retry + 1); |
| 784 | |
784 | |
| 785 | my $handle = new AnyEvent::Handle |
785 | my $handle = new AnyEvent::Handle |
| 786 | fh => $fh, |
786 | fh => $fh, |
