ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/AnyEvent/lib/AnyEvent/Handle.pm
(Generate patch)

Comparing AnyEvent/lib/AnyEvent/Handle.pm (file contents):
Revision 1.118 by root, Thu Feb 12 17:33:38 2009 UTC vs.
Revision 1.130 by root, Mon Jun 29 21:00:32 2009 UTC

… …
14 14
15AnyEvent::Handle - non-blocking I/O on file handles via AnyEvent 15AnyEvent::Handle - non-blocking I/O on file handles via AnyEvent
16 16
17=cut 17=cut
18 18
19our $VERSION = 4.34; 19our $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
314sub _shutdown { 314sub _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
328sub _error { 322sub _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
1477sub DESTROY { 1471sub 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

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines