… | |
… | |
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; |