| … | |
… | |
| 322 | addr => sub { |
322 | addr => sub { |
| 323 | my $addresses = shift; |
323 | my $addresses = shift; |
| 324 | $AnyEvent::MP::Kernel::WARN->(9, "$node told us its addresses (@$addresses)."); |
324 | $AnyEvent::MP::Kernel::WARN->(9, "$node told us its addresses (@$addresses)."); |
| 325 | $addr{$node} = $addresses; |
325 | $addr{$node} = $addresses; |
| 326 | |
326 | |
| 327 | for my $node (values %SEEDME) { |
327 | for my $node (keys %SEEDME) { |
| 328 | my $port = $port{$node}; |
328 | my $port = $port{$node}; |
| 329 | snd $port, nodes => { $node => $addresses }; |
329 | snd $port, nodes => { $node => $addresses }; |
| 330 | } |
330 | } |
| 331 | }, |
331 | }, |
| 332 | nodes => sub { |
332 | nodes => sub { |
