| … | |
… | |
| 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 ".", |
