summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xclerk2
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);
}
}