| … | … | ||
|---|---|---|---|
| 1770 | my ($self) = @_; | 1770 | my ($self) = @_; |
| 1771 | 1771 | ||
| 1772 | return unless $self->{tls}; | 1772 | return unless $self->{tls}; |
| 1773 | 1773 | ||
| 1774 | $self->{tls_ctx}->_put_session (delete $self->{tls}) | 1774 | $self->{tls_ctx}->_put_session (delete $self->{tls}) |
| 1775 | if ref $self->{tls}; | 1775 | if $self->{tls} > 0; |
| 1776 | 1776 | ||
| 1777 | delete @$self{qw(_rbio _wbio _tls_wbuf _on_starttls)}; | 1777 | delete @$self{qw(_rbio _wbio _tls_wbuf _on_starttls)}; |
| 1778 | } | 1778 | } |
| 1779 | 1779 | ||
| 1780 | sub DESTROY { | 1780 | sub DESTROY { |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |