| … | |
… | |
| 427 | my $time = Event::time; |
427 | my $time = Event::time; |
| 428 | |
428 | |
| 429 | # this is the main coro, too bad, we have to block |
429 | # this is the main coro, too bad, we have to block |
| 430 | # till the operation succeeds, freezing the server :/ |
430 | # till the operation succeeds, freezing the server :/ |
| 431 | |
431 | |
|
|
432 | LOG llevError | logBacktrace, Carp::longmess "sync job";#d# |
|
|
433 | |
| 432 | # TODO: use suspend/resume instead |
434 | # TODO: use suspend/resume instead |
| 433 | # (but this is cancel-safe) |
435 | # (but this is cancel-safe) |
| 434 | my $freeze_guard = freeze_mainloop; |
436 | my $freeze_guard = freeze_mainloop; |
| 435 | |
437 | |
| 436 | my $busy = 1; |
438 | my $busy = 1; |
