| … | |
… | |
| 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 | |
