… | |
… | |
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.34; |
19 | our $VERSION = 4.45; |
20 | |
20 | |
21 | =head1 SYNOPSIS |
21 | =head1 SYNOPSIS |
22 | |
22 | |
23 | use AnyEvent; |
23 | use AnyEvent; |
24 | use AnyEvent::Handle; |
24 | use AnyEvent::Handle; |
… | |
… | |
312 | } |
312 | } |
313 | |
313 | |
314 | sub _shutdown { |
314 | sub _shutdown { |
315 | my ($self) = @_; |
315 | my ($self) = @_; |
316 | |
316 | |
317 | delete $self->{_tw}; |
317 | delete @$self{qw(_tw _rw _ww fh rbuf wbuf on_read _queue)}; |
318 | delete $self->{_rw}; |
|
|
319 | delete $self->{_ww}; |
|
|
320 | delete $self->{fh}; |
|
|
321 | |
318 | |
322 | &_freetls; |
319 | &_freetls; |
323 | |
|
|
324 | delete $self->{on_read}; |
|
|
325 | delete $self->{_queue}; |
|
|
326 | } |
320 | } |
327 | |
321 | |
328 | sub _error { |
322 | sub _error { |
329 | my ($self, $errno, $fatal) = @_; |
323 | my ($self, $errno, $fatal) = @_; |
330 | |
324 | |
… | |
… | |
1473 | |
1467 | |
1474 | delete @$self{qw(_rbio _wbio _tls_wbuf)}; |
1468 | delete @$self{qw(_rbio _wbio _tls_wbuf)}; |
1475 | } |
1469 | } |
1476 | |
1470 | |
1477 | sub DESTROY { |
1471 | sub DESTROY { |
1478 | my $self = shift; |
1472 | my ($self) = @_; |
1479 | |
1473 | |
1480 | &_freetls; |
1474 | &_freetls; |
1481 | |
1475 | |
1482 | my $linger = exists $self->{linger} ? $self->{linger} : 3600; |
1476 | my $linger = exists $self->{linger} ? $self->{linger} : 3600; |
1483 | |
1477 | |