explicitly encode uri to utf8

1 files changed, 2 insertions, 0 deletions

diff --git a/clerk b/clerk
index bc98868..eb88d1d 100755
--- a/clerk
+++ b/clerk
@@ -8,6 +8,7 @@ use utf8;
 use Config::Simple;
 use Data::MessagePack;
 #use DDP;
+use Encode qw(decode encode);
 use File::Basename;
 use File::Path qw(make_path);
 use File::Slurper 'read_binary';
@@ -261,6 +262,7 @@ sub do_action {
 	} elsif ($context eq "tracks") {
 		foreach my $line (split /\n/, $in) {
 			my $uri = (split /[\t\n]/, $line)[-1];
+			$uri = decode('UTF-8', $uri );
 			$mpd->add($uri);
 		}
 	}