… | |
… | |
23 | our $MUSIC_SCHEDULER = cf::async_ext { |
23 | our $MUSIC_SCHEDULER = cf::async_ext { |
24 | while () { |
24 | while () { |
25 | for (keys %MUSIC_QUEUE) { |
25 | for (keys %MUSIC_QUEUE) { |
26 | delete $MUSIC_QUEUE{$_}; |
26 | delete $MUSIC_QUEUE{$_}; |
27 | |
27 | |
28 | cf::get_slot 0.01, -10; |
28 | cf::get_slot 0.01, -10, "music scheduler"; |
29 | |
29 | |
30 | my $pl = cf::player::find_active $_ or next; |
30 | my $pl = cf::player::find_active $_ or next; |
31 | $pl->ob->active or next; |
31 | $pl->ob->active or next; |
32 | my $ns = $pl->ns or next; |
32 | my $ns = $pl->ns or next; |
33 | $ns->extcmd or next; |
33 | $ns->extcmd or next; |