| … | … | ||
|---|---|---|---|
| 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 |