my $help=0;
my $basedir=undef;
my $dbpath=undef;
-my @extensions=qw(mp3); # ogg flac); # FIXME
+my @extensions=qw(mp3 flac ogg);
Configure(qw(bundling no_ignore_case));
my $optret=GetOptions(
sub usage
{
- die("Usage: $me [-vqh] [-d basedir] [-b dbpath] [-e mp3,ogg,flac] [--] DIR...\n".
+ die("Usage: $me [-vqh] [-d basedir] [-f dbpath] [-e mp3,ogg,flac] [--] DIR...\n".
" -v|--verbose\t\t\tVerbose\n".
" -q|--quiet\t\t\tQuiet (default)\n".
" -d|--dir=PATH\t\t\tBase directory of source files (default: ARGV[0])\n".