From f59a223266399577a70b60fd6816a2d479b1993a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Stenberg?= <bjorn@haxx.se>
Date: Wed, 19 Jan 2005 11:55:33 +0000
Subject: Strip trailing directory slash

git-svn-id: svn://svn.rockbox.org/rockbox/trunk@5604 a1c6a512-1295-4272-9138-f99709370657
---
 tools/songdb.pl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/tools/songdb.pl b/tools/songdb.pl
index 3cc8814..5d95ea5 100755
--- a/tools/songdb.pl
+++ b/tools/songdb.pl
@@ -59,6 +59,8 @@ if(! -d $dir or $help) {
 sub getdir {
     my ($dir) = @_;
 
+    $dir =~ s|/$|| if ($dir ne "/");
+
     if (opendir(DIR, $dir)) {
         #   my @mp3 = grep { /\.mp3$/ && -f "$dir/$_" } readdir(DIR);
         my @all = readdir(DIR);
@@ -83,6 +85,7 @@ sub extractmp3 {
 
 sub extractdirs {
     my ($dir, @files) = @_;
+    $dir =~ s|/$||;
     my @dirs;
     for(@files) {
         if( -d "$dir/$_" && ($_ !~ /^\.(|\.)$/)) {
@@ -175,7 +178,7 @@ sub dodir {
     my @d = extractdirs($dir, @a);
 
     for $d (sort @d) {
-        #print "Subdir: $d\n";
+        $dir =~ s|/$||;
         dodir("$dir/$d");
     }
 }
-- 
cgit v1.1