--- EV-ADNS/ADNS.pm 2007/12/05 10:46:00 1.7 +++ EV-ADNS/ADNS.pm 2008/05/17 20:37:17 1.11 @@ -7,7 +7,7 @@ use EV; use EV::ADNS; - EV::ADNS::submit "example.com", EV::ADNS::r_a, 0, sub { + EV::ADNS::submit "example.com", EV::ADNS::r_addr, 0, sub { my ($status, $expires, @a) = @_; warn $a[0]; # "127.13.166.3" etc. }; @@ -61,7 +61,7 @@ =over 4 -=item EV::ADNS::rr_a +=item EV::ADNS::r_a, EV::ADNS::r_addr An IPv4 address in dotted quad (string) form. @@ -145,7 +145,7 @@ use EV (); BEGIN { - $VERSION = '0.3'; + $VERSION = '2.1'; require XSLoader; XSLoader::load (EV::ADNS, $VERSION);