… | |
… | |
484 | |
484 | |
485 | # no srv records, continue traditionally |
485 | # no srv records, continue traditionally |
486 | @srv |
486 | @srv |
487 | or return &$resolve; |
487 | or return &$resolve; |
488 | |
488 | |
489 | # only srv record has "." => abort |
489 | # only srv record has "." ("" here) => abort |
490 | $srv[0][2] ne "." || $#srv |
490 | $srv[0][2] ne "" || $#srv |
491 | or return $cb->(); |
491 | or return $cb->(); |
492 | |
492 | |
493 | # use srv records then |
493 | # use srv records then |
494 | @target = map ["$_->[3].", $_->[2]], |
494 | @target = map ["$_->[3].", $_->[2]], |
495 | grep $_->[3] ne ".", |
495 | grep $_->[3] ne ".", |