diff options
Diffstat (limited to 'tools/songdb.pl')
-rwxr-xr-x | tools/songdb.pl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/tools/songdb.pl b/tools/songdb.pl index 3cc8814887..5d95ea5a87 100755 --- a/tools/songdb.pl +++ b/tools/songdb.pl | |||
@@ -59,6 +59,8 @@ if(! -d $dir or $help) { | |||
59 | sub getdir { | 59 | sub getdir { |
60 | my ($dir) = @_; | 60 | my ($dir) = @_; |
61 | 61 | ||
62 | $dir =~ s|/$|| if ($dir ne "/"); | ||
63 | |||
62 | if (opendir(DIR, $dir)) { | 64 | if (opendir(DIR, $dir)) { |
63 | # my @mp3 = grep { /\.mp3$/ && -f "$dir/$_" } readdir(DIR); | 65 | # my @mp3 = grep { /\.mp3$/ && -f "$dir/$_" } readdir(DIR); |
64 | my @all = readdir(DIR); | 66 | my @all = readdir(DIR); |
@@ -83,6 +85,7 @@ sub extractmp3 { | |||
83 | 85 | ||
84 | sub extractdirs { | 86 | sub extractdirs { |
85 | my ($dir, @files) = @_; | 87 | my ($dir, @files) = @_; |
88 | $dir =~ s|/$||; | ||
86 | my @dirs; | 89 | my @dirs; |
87 | for(@files) { | 90 | for(@files) { |
88 | if( -d "$dir/$_" && ($_ !~ /^\.(|\.)$/)) { | 91 | if( -d "$dir/$_" && ($_ !~ /^\.(|\.)$/)) { |
@@ -175,7 +178,7 @@ sub dodir { | |||
175 | my @d = extractdirs($dir, @a); | 178 | my @d = extractdirs($dir, @a); |
176 | 179 | ||
177 | for $d (sort @d) { | 180 | for $d (sort @d) { |
178 | #print "Subdir: $d\n"; | 181 | $dir =~ s|/$||; |
179 | dodir("$dir/$d"); | 182 | dodir("$dir/$d"); |
180 | } | 183 | } |
181 | } | 184 | } |