| … | … | ||
|---|---|---|---|
| 70 | 70 | ||
| 71 | sub clr_transport { | 71 | sub clr_transport { |
| 72 | my ($self) = @_; | 72 | my ($self) = @_; |
| 73 | 73 | ||
| 74 | delete $self->{transport}; | 74 | delete $self->{transport}; |
| 75 | warn "clr_transport\n"; | 75 | |
| 76 | $self->connect; | ||
| 76 | } | 77 | } |
| 77 | 78 | ||
| 78 | sub connect { | 79 | sub connect { |
| 79 | my ($self) = @_; | 80 | my ($self) = @_; |
| 80 | 81 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |