From b4728dfb0ac46abd12576d0c26a5f6bc66a0b679 Mon Sep 17 00:00:00 2001
From: P. J. McDermott <pj@pehjota.net>
Date: Tue, 11 Mar 2014 17:59:33 -0400
Subject: Set the encoding on the comments file stream

---
diff --git a/jamaldo.pl b/jamaldo.pl
index e1e94db..1b4ff81 100755
--- a/jamaldo.pl
+++ b/jamaldo.pl
@@ -148,6 +148,7 @@ sub get_track
 	$comments_fname = sprintf("%s/%02d - %s.comments",
 		$dir, $track->{"position"}, $name);
 	open($comments_fh, ">", $comments_fname);
+	binmode($comments_fh, ":encoding(UTF-8)");
 	while (($vorbis_field, $jamendo_field) = each(%fields)) {
 		$jamendo_field = $track->{$jamendo_field};
 		$jamendo_field =~ s/\n/\\n/g;
--
cgit v0.9.1