… | … | ||
---|---|---|---|
212 | sub prune_caches { | 212 | sub prune_caches { |
213 | prune_cache \%conn; | 213 | prune_cache \%conn; |
214 | prune_cache \%uri; | 214 | prune_cache \%uri; |
215 | 215 | ||
216 | for (keys %blocked) { | 216 | for (keys %blocked) { |
217 | delete $blocked{$_} if $blocked{$_}[0] > $::NOW; | 217 | delete $blocked{$_} unless $blocked{$_}[0] > $::NOW; |
218 | } | 218 | } |
219 | } | 219 | } |
220 | 220 | ||
221 | Event->timer(interval => 60, cb => \&prune_caches); | 221 | Event->timer(interval => 60, cb => \&prune_caches); |
222 | 222 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |