… | |
… | |
2050 | if $self->{tls} > 0; |
2050 | if $self->{tls} > 0; |
2051 | |
2051 | |
2052 | delete @$self{qw(_rbio _wbio _tls_wbuf _on_starttls)}; |
2052 | delete @$self{qw(_rbio _wbio _tls_wbuf _on_starttls)}; |
2053 | } |
2053 | } |
2054 | |
2054 | |
|
|
2055 | =item $handle->resettls |
|
|
2056 | |
|
|
2057 | This rarely-used method simply resets and TLS state on the handle, usually |
|
|
2058 | causing data loss. |
|
|
2059 | |
|
|
2060 | One case where it may be useful is when you want to skip over the data in |
|
|
2061 | the stream but you are not interested in interpreting it, so data loss is |
|
|
2062 | no concern. |
|
|
2063 | |
|
|
2064 | =cut |
|
|
2065 | |
|
|
2066 | *resettls = \&_freetls; |
|
|
2067 | |
2055 | sub DESTROY { |
2068 | sub DESTROY { |
2056 | my ($self) = @_; |
2069 | my ($self) = @_; |
2057 | |
2070 | |
2058 | &_freetls; |
2071 | &_freetls; |
2059 | |
2072 | |