… | … | ||
---|---|---|---|
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 |