ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/AnyEvent/lib/AnyEvent/Socket.pm
(Generate patch)

Comparing AnyEvent/lib/AnyEvent/Socket.pm (file contents):
Revision 1.24 by root, Sun May 25 03:44:03 2008 UTC vs.
Revision 1.25 by root, Sun May 25 23:52:02 2008 UTC

… …
483=cut 483=cut
484 484
485sub tcp_server($$$;$) { 485sub tcp_server($$$;$) {
486 my ($host, $port, $accept, $prepare) = @_; 486 my ($host, $port, $accept, $prepare) = @_;
487 487
488 $host = $AnyEvent::PROTOCOL{ipv4} > $AnyEvent::PROTOCOL{ipv6} && AF_INET6 488 $host = $AnyEvent::PROTOCOL{ipv4} < $AnyEvent::PROTOCOL{ipv6} && AF_INET6
489 ? "::" : "0" 489 ? "::" : "0"
490 unless defined $host; 490 unless defined $host;
491 491
492 my $ipn = parse_ip $host 492 my $ipn = parse_ip $host
493 or Carp::croak "AnyEvent::Socket::tcp_server: cannot parse '$host' as IPv4 or IPv6 address"; 493 or Carp::croak "AnyEvent::Socket::tcp_server: cannot parse '$host' as IPv4 or IPv6 address";

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines