| … | |
… | |
| 11 | |
11 | |
| 12 | AnyEvent::Handle - non-blocking I/O on file handles via AnyEvent |
12 | AnyEvent::Handle - non-blocking I/O on file handles via AnyEvent |
| 13 | |
13 | |
| 14 | =cut |
14 | =cut |
| 15 | |
15 | |
| 16 | our $VERSION = 4.881; |
16 | our $VERSION = 4.9; |
| 17 | |
17 | |
| 18 | =head1 SYNOPSIS |
18 | =head1 SYNOPSIS |
| 19 | |
19 | |
| 20 | use AnyEvent; |
20 | use AnyEvent; |
| 21 | use AnyEvent::Handle; |
21 | use AnyEvent::Handle; |
| … | |
… | |
| 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 { |
