def get_decode_args(fn):
l = []
- p = Popen(['metaflac', '--export-cuesheet-to=-', fn], stdout=PIPE)
+ p = Popen(['metaflac', '--no-utf8-convert', '--export-cuesheet-to=-', fn],
+ stdout=PIPE)
for line in (x.rstrip() for x in p.stdout):
m = re.search(r'INDEX 01 (\d\d):(\d\d):(\d\d)$', line)
if m != None:
tags = Tags()
- p = Popen(['metaflac', '--export-tags-to=-', fn], stdout=PIPE)
+ p = Popen(['metaflac', '--no-utf8-convert', '--export-tags-to=-', fn],
+ stdout=PIPE)
tags.load(p.stdout)
# XXX dataloss! check status
my $fn = shift;
my @l;
- open(F, '-|', 'metaflac', '--export-cuesheet-to=-', $fn);
+ open(F, '-|', 'metaflac', '--no-utf8-convert', '--export-cuesheet-to=-',
+ $fn);
while (<F>) {
/INDEX 01 (\d\d):(\d\d):(\d\d)$/ or next;
push(@l, [$1, $2, $3]);
my $outdir;
my $outfile;
- open(my $fp, '-|', 'metaflac', '--export-tags-to=-', $fn)
- or die("open(metaflac --export-tags-to=- $fn): $!");
+ open(my $fp, '-|', 'metaflac', '--no-utf8-convert', '--export-tags-to=-',
+ $fn)
+ or die("open(metaflac --no-utf8-convert --export-tags-to=- $fn): $!");
($artist, $album, $discnum, @tags) = get_tags($fp, $fn);
- close($fp) or die("close(metaflac --export-tags-to=- $fn): $?");
+ close($fp)
+ or die("close(metaflac --no-utf8-convert --export-tags-to=- $fn): $?");
for ($artist, $album) {
s/'/'\\''/g;
s|/|_|g;