| … | |
… | |
| 11 | |
11 | |
| 12 | #TODO, sort by size (smallest first...) |
12 | #TODO, sort by size (smallest first...) |
| 13 | [ |
13 | [ |
| 14 | sort { (cf::face::get_data_size $a) <=> (cf::face::get_data_size $b) } |
14 | sort { (cf::face::get_data_size $a) <=> (cf::face::get_data_size $b) } |
| 15 | grep $_, |
15 | grep $_, |
| 16 | map +(cf::face::find "$prefix$_"), |
16 | map +(cf::face::find "$prefix$_" or ((warn "unable to find music file $_"), undef)), |
| 17 | split /\s*,\s*/, $list |
17 | split /\s*,\s*/, $list |
| 18 | ] |
18 | ] |
| 19 | } |
19 | } |
| 20 | |
20 | |
| 21 | our %MUSIC_QUEUE; |
21 | our %MUSIC_QUEUE; |
