fix paths on add
authorIan Beckwith <ianb@erislabs.net>
Fri, 15 Oct 2010 01:33:28 +0000 (02:33 +0100)
committerIan Beckwith <ianb@erislabs.net>
Fri, 15 Oct 2010 01:33:28 +0000 (02:33 +0100)
lib/ID3FS/DB.pm

index c1d6cd6..385cacd 100644 (file)
@@ -223,7 +223,7 @@ sub add
 {
     my($self,$path)=@_;
     my $relpath=Cwd::abs_path($path);
-    $relpath =~ s/^\Q$self->{base}\E\/?//;
+    $relpath =~ s/^\Q$self->{absbase}\E\/?//;
     my($filepart,$pathpart);
     if($relpath !~ /\//)
     {