… | |
… | |
178 | $Coro::current->prio (Coro::PRIO_MIN); |
178 | $Coro::current->prio (Coro::PRIO_MIN); |
179 | $Coro::current->desc ("map-tag scanner"); |
179 | $Coro::current->desc ("map-tag scanner"); |
180 | reload; |
180 | reload; |
181 | }; |
181 | }; |
182 | |
182 | |
|
|
183 | cf::async { reload }; # force at startup |
|
|
184 | |
183 | # 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 |
184 | sub find($) { |
186 | sub find($) { |
185 | my ($tag) = @_; |
187 | my ($tag) = @_; |
186 | |
188 | |
187 | utf8::encode (my $key = $tag); |
189 | utf8::encode (my $key = $tag); |