… | |
… | |
322 | sub error { |
322 | sub error { |
323 | my ($self, $msg) = @_; |
323 | my ($self, $msg) = @_; |
324 | |
324 | |
325 | delete $self->{keepalive}; |
325 | delete $self->{keepalive}; |
326 | |
326 | |
327 | $AnyEvent::MP::Kernel::WARN->(9, "$self->{peerhost}:$self->{peerport} $msg");#d# |
327 | # $AnyEvent::MP::Kernel::WARN->(9, "$self->{peerhost}:$self->{peerport} $msg");#d# |
328 | |
328 | |
329 | $self->{node}->transport_error (transport_error => $self->{node}{id}, $msg) |
329 | $self->{node}->transport_error (transport_error => $self->{node}{id}, $msg) |
330 | if $self->{node} && $self->{node}{transport} == $self; |
330 | if $self->{node} && $self->{node}{transport} == $self; |
331 | |
331 | |
332 | (delete $self->{release})->() |
332 | (delete $self->{release})->() |