len0rd/rockbox
1
0
Fork 1
mirror of https://github.com/Rockbox/rockbox.git synced 2025-11-09 13:12:37 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Don't die on opendir() failure. Index .mp2 files too.

Browse source 
git-svn-id: svn://svn.rockbox.org/rockbox/trunk@5581 a1c6a512-1295-4272-9138-f99709370657
This commit is contained in:
Björn Stenberg 2005-01-17 13:50:08 +00:00
parent 445d5d5a6e
commit 7396d99027
1 changed files with 10 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

16
tools/songdb.pl
View file

@ -59,18 +59,22 @@ if(! -d $dir or $help) {
sub getdir {
my ($dir) = @_;
opendir(DIR, $dir) || die "can't opendir $dir: $!";
# my @mp3 = grep { /\.mp3$/ && -f "$dir/$_" } readdir(DIR);
my @all = readdir(DIR);
closedir DIR;
return @all;
if (opendir(DIR, $dir)) {
# my @mp3 = grep { /\.mp3$/ && -f "$dir/$_" } readdir(DIR);
my @all = readdir(DIR);
closedir DIR;
return @all;
}
else {
warn "can't opendir $dir: $!\n";
}
}
sub extractmp3 {
my ($dir, @files) = @_;
my @mp3;
for(@files) {
if( /\.mp3$/ && -f "$dir/$_" ) {
if( /\.mp[23]$/ && -f "$dir/$_" ) {
push @mp3, $_;
}
}