| … | |
… | |
| 80 | |
80 | |
| 81 | push @AnyEvent::MP::Transport::HOOK_DESTROY, sub { |
81 | push @AnyEvent::MP::Transport::HOOK_DESTROY, sub { |
| 82 | delete $SEED_CONNECT{$_[0]{local_greeting}{peeraddr}}; |
82 | delete $SEED_CONNECT{$_[0]{local_greeting}{peeraddr}}; |
| 83 | |
83 | |
| 84 | # check if we contacted ourselves, so nuke this seed |
84 | # check if we contacted ourselves, so nuke this seed |
| 85 | if ($_[0]{remote_node} eq $AnyEvent::MP::Kernel::NODE) { |
85 | if (exists $_[0]{seed} && $_[0]{remote_node} eq $AnyEvent::MP::Kernel::NODE) { |
| 86 | $AnyEvent::MP::Kernel::WARN->(0,"avoiding seed $_[0]\n");#d# |
86 | # $AnyEvent::MP::Kernel::WARN->(0,"avoiding seed $_[0]{seed}\n");#d# |
| 87 | delete $SEEDS{$_[0]{local_greeting}{peeraddr}}; |
87 | delete $SEEDS{$_[0]{seed}}; |
| 88 | } |
88 | } |
| 89 | }; |
89 | }; |
| 90 | |
90 | |
| 91 | sub seed_connect { |
91 | sub seed_connect { |
| 92 | my ($seed) = @_; |
92 | my ($seed) = @_; |
