| … | … | ||
|---|---|---|---|
| 1637 | 1637 | ||
| 1638 | &_freetls; | 1638 | &_freetls; |
| 1639 | 1639 | ||
| 1640 | my $linger = exists $self->{linger} ? $self->{linger} : 3600; | 1640 | my $linger = exists $self->{linger} ? $self->{linger} : 3600; |
| 1641 | 1641 | ||
| 1642 | if ($linger && length $self->{wbuf}) { | 1642 | if ($linger && length $self->{wbuf} && $self->{fh}) { |
| 1643 | my $fh = delete $self->{fh}; | 1643 | my $fh = delete $self->{fh}; |
| 1644 | my $wbuf = delete $self->{wbuf}; | 1644 | my $wbuf = delete $self->{wbuf}; |
| 1645 | 1645 | ||
| 1646 | my @linger; | 1646 | my @linger; |
| 1647 | 1647 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |