… | |
… | |
14 | |
14 | |
15 | AnyEvent::Handle - non-blocking I/O on file handles via AnyEvent |
15 | AnyEvent::Handle - non-blocking I/O on file handles via AnyEvent |
16 | |
16 | |
17 | =cut |
17 | =cut |
18 | |
18 | |
19 | our $VERSION = 4.331; |
19 | our $VERSION = 4.42; |
20 | |
20 | |
21 | =head1 SYNOPSIS |
21 | =head1 SYNOPSIS |
22 | |
22 | |
23 | use AnyEvent; |
23 | use AnyEvent; |
24 | use AnyEvent::Handle; |
24 | use AnyEvent::Handle; |
… | |
… | |
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 | |