… | … | ||
---|---|---|---|
197 | } | 197 | } |
198 | 198 | ||
199 | sub DESTROY { | 199 | sub DESTROY { |
200 | my $self = shift; | 200 | my $self = shift; |
201 | 201 | ||
202 | close $self->{fh}; # workaround | ||
203 | --$::conns; | 202 | --$::conns; |
204 | } | 203 | } |
205 | 204 | ||
206 | sub prune_cache { | 205 | sub prune_cache { |
207 | my $hash = $_[0]; | 206 | my $hash = $_[0]; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |