--- AnyEvent-MP/MP/Node.pm 2009/08/08 21:56:29 1.15 +++ AnyEvent-MP/MP/Node.pm 2009/08/09 16:08:16 1.16 @@ -22,8 +22,6 @@ use base Exporter::; -our $VERSION = '0.0'; - sub new { my ($class, $noderef) = @_; @@ -85,6 +83,7 @@ if $self->{transport}; delete $self->{trial}; + delete $self->{retry}; delete $self->{next_connect}; $self->{transport} = $transport; @@ -141,11 +140,11 @@ [$w, \$g] }; } else { - delete $self->{retry}; $self->fail (transport_error => $self->{noderef}, "unable to connect"); } $self->{next_connect} = AE::timer $AnyEvent::MP::Base::CONNECT_INTERVAL, 0, sub { + delete $self->{retry}; $self->connect; }; }