my $outdir;
my $outfile;
- open(my $fp, '-|', 'metaflac', '--export-vc-to=-', $fn)
- or die("open(metaflac --export-vc-to=- $fn): $!");
+ open(my $fp, '-|', 'metaflac', '--export-tags-to=-', $fn)
+ or die("open(metaflac --export-tags-to=- $fn): $!");
($artist, $album, $discnum, @tags) = get_tags($fp, $fn);
- close($fp) or die("close(metaflac --export-vc-to=- $fn): $?");
+ close($fp) or die("close(metaflac --export-tags-to=- $fn): $?");
for ($artist, $album) {
s/'/'\\''/g;
s|/|_|g;