Configure(qw(bundling no_ignore_case));
my $optret=GetOptions(
"verbose|v" => sub { $verbose++; },
"help|h" => \$help,
"database|f=s" => \$dbpath,
Configure(qw(bundling no_ignore_case));
my $optret=GetOptions(
"verbose|v" => sub { $verbose++; },
"help|h" => \$help,
"database|f=s" => \$dbpath,
my $db=ID3FS::DB->new($me, $verbose, 0, $dbpath, $source);
exit unless($db);
my $db=ID3FS::DB->new($me, $verbose, 0, $dbpath, $source);
exit unless($db);
-my $fuse=ID3FS::Fuse->new($db, $source, $mountpoint, $verbose);
+my $fuse=ID3FS::Fuse->new($db, $source, $mountpoint, $verbose, $tagdepth);