[ViewVC] Diff of: cvs/AnyEvent/lib/AnyEvent/DNS.pm

Comparing AnyEvent/lib/AnyEvent/DNS.pm (file contents):
Revision 1.103 by root, Thu Jul 9 08:31:16 2009 UTC vs.
Revision 1.107 by root, Fri Jul 17 23:12:20 2009 UTC

 =cut
 package AnyEvent::DNS;
-no warnings;
-use strict;
 use Carp ();
 use Socket qw(AF_INET SOCK_DGRAM SOCK_STREAM);
-use AnyEvent ();
+use AnyEvent (); BEGIN { AnyEvent::common_sense }
 use AnyEvent::Util qw(AF_INET6);
-our $VERSION = 4.81;
+our $VERSION = 4.83;
 our @DNS_FALLBACK = (v208.67.220.220, v208.67.222.222);
 =item AnyEvent::DNS::a $domain, $cb->(@addrs)
 sub _enc_name($) {
    pack "(C/a*)*", (split /\./, shift), ""
 }
+if ($[ < 5.008) {
+   # special slower 5.6 version
+   *_enc_name = sub {
+      join "", map +(pack "C/a*", $_), (split /\./, shift), ""
+   };
+}
 sub _enc_qd() {
    (_enc_name $_->[0]) . pack "nn",
      ($_->[1] > 0 ? $_->[1] : $type_id {$_->[1]}),
      ($_->[2] > 0 ? $_->[2] : $class_id{$_->[2] || "in"})
 }
 }
 sub _parse_resolv_conf_file {
    my ($self, $resolv_conf) = @_;
-   open my $fh, "<:perlio", $resolv_conf
+   open my $fh, "<", $resolv_conf
       or Carp::croak "$resolv_conf: $!";
    local $/;
    $self->parse_resolv_conf (<$fh>);
 }
          }
       }];
       my $sa = AnyEvent::Socket::pack_sockaddr (DOMAIN_PORT, $server);
-      my $fh = AF_INET == Socket::sockaddr_family ($sa)
+      my $fh = AF_INET == AnyEvent::Socket::sockaddr_family ($sa)
                ? $self->{fh4} : $self->{fh6}
          or return &$do_retry;
       send $fh, $req->[0], 0, $sa;
    };

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