--- AnyEvent-MP/MP/Node.pm 2009/08/01 07:11:45 1.2 +++ AnyEvent-MP/MP/Node.pm 2009/08/01 15:04:30 1.4 @@ -36,8 +36,6 @@ sub send { my ($self, $msg) = @_; - warn "send $self $self->{noderef}\n";#d# - if ($self->{transport}) { $self->{transport}->send ($msg); } elsif ($self->{queue}) { @@ -54,8 +52,6 @@ delete $self->{trial}; delete $self->{next_connect}; - use Data::Dumper; warn "set_transport $self->{noderef} $self $AnyEvent::MP::NODE{'10.0.0.1:4040'}\n";#d# - if ( exists $self->{remote_uniq} && $self->{remote_uniq} ne $transport->{remote_uniq} @@ -76,7 +72,8 @@ my ($self) = @_; delete $self->{transport}; - warn "clr_transport\n"; + + $self->connect; } sub connect {