… | |
… | |
2646 | |
2646 | |
2647 | our @WAIT_FOR_TICK; |
2647 | our @WAIT_FOR_TICK; |
2648 | our @WAIT_FOR_TICK_BEGIN; |
2648 | our @WAIT_FOR_TICK_BEGIN; |
2649 | |
2649 | |
2650 | sub wait_for_tick { |
2650 | sub wait_for_tick { |
|
|
2651 | return unless $TICK_WATCHER->is_active; |
2651 | my $signal = new Coro::Signal; |
2652 | my $signal = new Coro::Signal; |
2652 | push @WAIT_FOR_TICK, $signal; |
2653 | push @WAIT_FOR_TICK, $signal; |
2653 | $signal->wait; |
2654 | $signal->wait; |
2654 | } |
2655 | } |
2655 | |
2656 | |
2656 | sub wait_for_tick_begin { |
2657 | sub wait_for_tick_begin { |
|
|
2658 | return unless $TICK_WATCHER->is_active; |
2657 | my $signal = new Coro::Signal; |
2659 | my $signal = new Coro::Signal; |
2658 | push @WAIT_FOR_TICK_BEGIN, $signal; |
2660 | push @WAIT_FOR_TICK_BEGIN, $signal; |
2659 | $signal->wait; |
2661 | $signal->wait; |
2660 | } |
2662 | } |
2661 | |
2663 | |