ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/AnyEvent/lib/AnyEvent/DNS.pm
(Generate patch)

Comparing AnyEvent/lib/AnyEvent/DNS.pm (file contents):
Revision 1.38 by root, Thu May 29 01:46:56 2008 UTC vs.
Revision 1.39 by root, Thu May 29 03:45:37 2008 UTC

… …
34use Socket qw(AF_INET SOCK_DGRAM SOCK_STREAM); 34use Socket qw(AF_INET SOCK_DGRAM SOCK_STREAM);
35 35
36use AnyEvent (); 36use AnyEvent ();
37use AnyEvent::Handle (); 37use AnyEvent::Handle ();
38use AnyEvent::Util qw(AF_INET6); 38use AnyEvent::Util qw(AF_INET6);
39
40our $VERSION = '1.0';
39 41
40our @DNS_FALLBACK = (v208.67.220.220, v208.67.222.222); 42our @DNS_FALLBACK = (v208.67.220.220, v208.67.222.222);
41 43
42=item AnyEvent::DNS::a $domain, $cb->(@addrs) 44=item AnyEvent::DNS::a $domain, $cb->(@addrs)
43 45
… …
891 } 893 }
892 }]; 894 }];
893 895
894 my $sa = AnyEvent::Socket::pack_sockaddr (DOMAIN_PORT, $server); 896 my $sa = AnyEvent::Socket::pack_sockaddr (DOMAIN_PORT, $server);
895 897
896 my $fh = (Socket::sockaddr_family $sa) == AF_INET 898 my $fh = AF_INET == Socket::sockaddr_family ($sa)
897 ? $self->{fh4} : $self->{fh6} 899 ? $self->{fh4} : $self->{fh6}
898 or return &$do_retry; 900 or return &$do_retry;
899 901
900 send $fh, $req->[0], 0, $sa; 902 send $fh, $req->[0], 0, $sa;
901 }; 903 };

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines