| … | |
… | |
| 14 | use Coro::Event; |
14 | use Coro::Event; |
| 15 | use Coro::Timer; |
15 | use Coro::Timer; |
| 16 | use Coro::Signal; |
16 | use Coro::Signal; |
| 17 | use Coro::Semaphore; |
17 | use Coro::Semaphore; |
| 18 | |
18 | |
| 19 | use IO::AIO; |
19 | use IO::AIO 2.3; |
| 20 | use YAML::Syck (); |
20 | use YAML::Syck (); |
| 21 | use Time::HiRes; |
21 | use Time::HiRes; |
| 22 | |
22 | |
| 23 | use Event; $Event::Eval = 1; # no idea why this is required, but it is |
23 | use Event; $Event::Eval = 1; # no idea why this is required, but it is |
| 24 | |
24 | |
| … | |
… | |
| 886 | |
886 | |
| 887 | if (@{ $ns->{query_queue} } == @$queue) { |
887 | if (@{ $ns->{query_queue} } == @$queue) { |
| 888 | if (@$queue) { |
888 | if (@$queue) { |
| 889 | $ns->send_packet ($ns->{query_queue}[0][0]); |
889 | $ns->send_packet ($ns->{query_queue}[0][0]); |
| 890 | } else { |
890 | } else { |
| 891 | $ns->state (ST_PLAYING); |
891 | $ns->state (ST_PLAYING) if $ns->state == ST_CUSTOM; |
| 892 | } |
892 | } |
| 893 | } |
893 | } |
| 894 | }, |
894 | }, |
| 895 | ); |
895 | ); |
| 896 | |
896 | |
