| … | … | ||
|---|---|---|---|
| 1473 | 1473 | ||
| 1474 | delete @$self{qw(_rbio _wbio _tls_wbuf)}; | 1474 | delete @$self{qw(_rbio _wbio _tls_wbuf)}; |
| 1475 | } | 1475 | } |
| 1476 | 1476 | ||
| 1477 | sub DESTROY { | 1477 | sub DESTROY { |
| 1478 | my $self = shift; | 1478 | my ($self) = @_; |
| 1479 | 1479 | ||
| 1480 | &_freetls; | 1480 | &_freetls; |
| 1481 | 1481 | ||
| 1482 | my $linger = exists $self->{linger} ? $self->{linger} : 3600; | 1482 | my $linger = exists $self->{linger} ? $self->{linger} : 3600; |
| 1483 | 1483 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |