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