X-Git-Url: https://diplodocus.org/git/flac-archive/blobdiff_plain/6c58deb659519e8e298a4e65e340a50ba37d6175..ab7bc57e5eee62b66b5386630c584b05efb361d5:/flacsplit

diff --git a/flacsplit b/flacsplit
index 26d3bec..032fea2 100755
--- a/flacsplit
+++ b/flacsplit
@@ -42,7 +42,8 @@ sub get_decode_args {
     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]);
@@ -130,10 +131,12 @@ sub flacsplit {
     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;