| … | |
… | |
| 217 | $addr{$node} = $addresses; |
217 | $addr{$node} = $addresses; |
| 218 | |
218 | |
| 219 | # to help listener-less nodes, we broadcast new addresses to them unconditionally |
219 | # to help listener-less nodes, we broadcast new addresses to them unconditionally |
| 220 | #TODO: should be done by a node finding out about a listener-less one |
220 | #TODO: should be done by a node finding out about a listener-less one |
| 221 | if (@$addresses) { |
221 | if (@$addresses) { |
| 222 | for my $other (values %AnyEvent::MP::NODE) { |
222 | for my $other (values %AnyEvent::MP::Kernel::NODE) { |
| 223 | if ($other->{transport}) { |
223 | if ($other->{transport}) { |
| 224 | if ($addr{$other->{id}} && !@{ $addr{$other->{id}} }) { |
224 | if ($addr{$other->{id}} && !@{ $addr{$other->{id}} }) { |
| 225 | $AnyEvent::MP::Kernel::WARN->(9, "helping $other->{id} to find $node."); |
225 | $AnyEvent::MP::Kernel::WARN->(9, "helping $other->{id} to find $node."); |
| 226 | snd $port{$other->{id}}, nodes => { $node => $addresses }; |
226 | snd $port{$other->{id}}, nodes => { $node => $addresses }; |
| 227 | } |
227 | } |
