… | |
… | |
2344 | } |
2344 | } |
2345 | |
2345 | |
2346 | =item cf::map::static_maps |
2346 | =item cf::map::static_maps |
2347 | |
2347 | |
2348 | Returns an arrayref if paths of all static maps (all preinstalled F<.map> |
2348 | Returns an arrayref if paths of all static maps (all preinstalled F<.map> |
2349 | file in the shared directory). May block. |
2349 | file in the shared directory excluding F</styles>). May block. |
2350 | |
2350 | |
2351 | =cut |
2351 | =cut |
2352 | |
2352 | |
2353 | sub static_maps() { |
2353 | sub static_maps() { |
2354 | my @dirs = ""; |
2354 | my @dirs = ""; |
2355 | my @maps; |
2355 | my @maps; |
2356 | |
2356 | |
2357 | while (@dirs) { |
2357 | while (@dirs) { |
2358 | my $dir = shift @dirs; |
2358 | my $dir = shift @dirs; |
|
|
2359 | |
|
|
2360 | next if $dir eq "/styles"; |
2359 | |
2361 | |
2360 | my ($dirs, $files) = Coro::AIO::aio_scandir "$MAPDIR$dir", 2 |
2362 | my ($dirs, $files) = Coro::AIO::aio_scandir "$MAPDIR$dir", 2 |
2361 | or return; |
2363 | or return; |
2362 | |
2364 | |
2363 | for (@$files) { |
2365 | for (@$files) { |