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