$delete_genre, $genre, $add_tags, $delete_tags, $overwrite_tagvals,
$delete_tagvals);
-Configure(qw(no_ignore_case));
+Configure(qw(bundling no_ignore_case));
my $optret=GetOptions(
"verbose|v" => \$verbose,
"help|h" => \$help,
$file->delete_v1genre() if($delete_v1genre);
$file->delete_comment() if($delete_comment);
$file->delete_genre() if($delete_genre);
- $file->delete_tags($delete_tags, 0) if($delete_tags);
- $file->delete_tags($delete_tagvals, 1) if($delete_tagvals);
+ $file->delete_tags($delete_tags, 0) if($delete_tags);
+ $file->delete_tags($delete_tagvals, 1) if($delete_tagvals);
+ $file->delete_tags($overwrite_tagvals, 1) if($overwrite_tagvals);
my $donesomething=($delete_artist || $delete_album || $delete_track ||
$delete_tracknum || $delete_year || $delete_v1genre ||
$delete_comment || $delete_genre || $delete_tags ||
- $delete_tagvals);
+ $delete_tagvals || $overwrite_tagvals);
return($donesomething ? 1 : 0);
}
$file->comment($comment) if($comment);
$file->genre($genre) if($genre);
$file->add_tags($add_tags) if($add_tags);
+ $file->add_tags($overwrite_tagvals) if($overwrite_tagvals);
my $donesomething=(defined($artist) || defined($album) ||
defined($track) || defined($tracknum) ||
defined($year) || defined($v1genre) ||
defined($comment) || defined($genre) ||
- defined($add_tags));
+ defined($add_tags) || defined($overwrite_tagvals));
return( $donesomething ? 1 : 0 );
}