… | |
… | |
3562 | sub reload_perl() { |
3562 | sub reload_perl() { |
3563 | # doing reload synchronously and two reloads happen back-to-back, |
3563 | # doing reload synchronously and two reloads happen back-to-back, |
3564 | # coro crashes during coro_state_free->destroy here. |
3564 | # coro crashes during coro_state_free->destroy here. |
3565 | |
3565 | |
3566 | $RELOAD_WATCHER ||= EV::timer 0, 0, sub { |
3566 | $RELOAD_WATCHER ||= EV::timer 0, 0, sub { |
|
|
3567 | do_reload_perl; |
3567 | undef $RELOAD_WATCHER; |
3568 | undef $RELOAD_WATCHER; |
3568 | do_reload_perl; |
|
|
3569 | }; |
3569 | }; |
3570 | } |
3570 | } |
3571 | |
3571 | |
3572 | register_command "reload" => sub { |
3572 | register_command "reload" => sub { |
3573 | my ($who, $arg) = @_; |
3573 | my ($who, $arg) = @_; |