… | |
… | |
325 | |
325 | |
326 | $binds ||= [$NODE]; |
326 | $binds ||= [$NODE]; |
327 | |
327 | |
328 | $WARN->(8, "node $NODE starting up."); |
328 | $WARN->(8, "node $NODE starting up."); |
329 | |
329 | |
|
|
330 | $LISTENER = []; |
|
|
331 | %LISTENER = (); |
|
|
332 | |
330 | for (map _resolve $_, @$binds) { |
333 | for (map _resolve $_, @$binds) { |
331 | for my $bind ($_->recv) { |
334 | for my $bind ($_->recv) { |
332 | my ($host, $port) = AnyEvent::Socket::parse_hostport $bind |
335 | my ($host, $port) = AnyEvent::Socket::parse_hostport $bind |
333 | or Carp::croak "$bind: unparsable local bind address"; |
336 | or Carp::croak "$bind: unparsable local bind address"; |
334 | |
337 | |