… | |
… | |
172 | # } |
172 | # } |
173 | |
173 | |
174 | warn sprintf "map-tag scan (%fs)", EV::time - $start; |
174 | warn sprintf "map-tag scan (%fs)", EV::time - $start; |
175 | } |
175 | } |
176 | |
176 | |
177 | our $RELOAD_SCHEDULER = cf::periodic $SCHEDULE_INTERVAL, sub { |
177 | our $RELOAD_SCHEDULER = cf::periodic $SCHEDULE_INTERVAL, Coro::unblock_sub { |
178 | cfd::async { |
|
|
179 | $Coro::current->prio (Coro::PRIO_MIN); |
178 | $Coro::current->prio (Coro::PRIO_MIN); |
180 | $Coro::current->desc ("map-tag scanner"); |
179 | $Coro::current->desc ("map-tag scanner"); |
181 | reload; |
180 | reload; |
182 | }; |
|
|
183 | }; |
181 | }; |
|
|
182 | |
|
|
183 | cf::async { reload }; # force at startup |
184 | |
184 | |
185 | # find all objects with the given tag, or at least try to |
185 | # find all objects with the given tag, or at least try to |
186 | sub find($) { |
186 | sub find($) { |
187 | my ($tag) = @_; |
187 | my ($tag) = @_; |
188 | |
188 | |