| … | |
… | |
| 89 | sub transport_connect { |
89 | sub transport_connect { |
| 90 | my ($self, $transport) = @_; |
90 | my ($self, $transport) = @_; |
| 91 | |
91 | |
| 92 | delete $self->{trial}; |
92 | delete $self->{trial}; |
| 93 | |
93 | |
| 94 | $self->transport_error (transport_error => "switched connections") |
94 | $self->transport_error (transport_error => $self->{id}, "switched connections") |
| 95 | if $self->{transport}; |
95 | if $self->{transport}; |
| 96 | |
96 | |
| 97 | delete $self->{connect_addr}; |
97 | delete $self->{connect_addr}; |
| 98 | delete $self->{connect_w}; |
98 | delete $self->{connect_w}; |
| 99 | delete $self->{connect_to}; |
99 | delete $self->{connect_to}; |
