| … | |
… | |
| 256 | } |
256 | } |
| 257 | } |
257 | } |
| 258 | |
258 | |
| 259 | sub _update { |
259 | sub _update { |
| 260 | cf::async_ext { |
260 | cf::async_ext { |
| 261 | my $t0 = EV::now; |
|
|
| 262 | |
|
|
| 263 | $Coro::current->nice (1); |
261 | $Coro::current->nice (1); |
| 264 | $Coro::current->{desc} = "recentlog updater"; |
262 | $Coro::current->{desc} = "recentlog updater"; |
| 265 | |
263 | |
| 266 | Coro::AnyEvent::sleep 5; # grace time to allow file-saves |
264 | Coro::AnyEvent::sleep 5; # grace time to allow file-saves |
| 267 | |
265 | |
| 268 | my $lock = cf::lock_acquire "export_recentlog"; |
266 | my $lock = cf::lock_acquire "export_recentlog"; |
|
|
267 | |
|
|
268 | my $t0 = EV::now; |
| 269 | |
269 | |
| 270 | while (%need_update) { |
270 | while (%need_update) { |
| 271 | for (keys %need_update) { |
271 | for (keys %need_update) { |
| 272 | delete $need_update{$_}; |
272 | delete $need_update{$_}; |
| 273 | |
273 | |
