| … | |
… | |
| 491 | $cv->begin; |
491 | $cv->begin; |
| 492 | |
492 | |
| 493 | if ($ipv4) { |
493 | if ($ipv4) { |
| 494 | $cv->begin; |
494 | $cv->begin; |
| 495 | AnyEvent::DNS::a ($name, sub { |
495 | AnyEvent::DNS::a ($name, sub { |
| 496 | $res[$ipv4] = [map &parse_ipv4, @_]; |
496 | $res[$ipv4] = [map { parse_ipv4 $_ } @_]; |
| 497 | $cv->end; |
497 | $cv->end; |
| 498 | }); |
498 | }); |
| 499 | }; |
499 | }; |
| 500 | |
500 | |
| 501 | if ($ipv6) { |
501 | if ($ipv6) { |
| 502 | $cv->begin; |
502 | $cv->begin; |
| 503 | AnyEvent::DNS::aaaa ($name, sub { |
503 | AnyEvent::DNS::aaaa ($name, sub { |
| 504 | $res[$ipv6] = [map &parse_ipv6, @_]; |
504 | $res[$ipv6] = [map { parse_ipv6 $_ } @_]; |
| 505 | $cv->end; |
505 | $cv->end; |
| 506 | }); |
506 | }); |
| 507 | }; |
507 | }; |
| 508 | |
508 | |
| 509 | $cv->end; |
509 | $cv->end; |
