| … | |
… | |
| 653 | $family ||= 6 unless $AnyEvent::PROTOCOL{ipv4}; |
653 | $family ||= 6 unless $AnyEvent::PROTOCOL{ipv4}; |
| 654 | |
654 | |
| 655 | $proto ||= "tcp"; |
655 | $proto ||= "tcp"; |
| 656 | $type ||= $proto eq "udp" ? SOCK_DGRAM : SOCK_STREAM; |
656 | $type ||= $proto eq "udp" ? SOCK_DGRAM : SOCK_STREAM; |
| 657 | |
657 | |
| 658 | my $proton = getprotobyname $proto |
658 | my $proton = AnyEvent::Socket::getprotobyname $proto |
| 659 | or Carp::croak "$proto: protocol unknown"; |
659 | or Carp::croak "$proto: protocol unknown"; |
| 660 | |
660 | |
| 661 | my $port; |
661 | my $port; |
| 662 | |
662 | |
| 663 | if ($service =~ /^(\S+)=(\d+)$/) { |
663 | if ($service =~ /^(\S+)=(\d+)$/) { |
