diff options
author | Rasmus Steinke <rasi@xssn.at> | 2017-08-06 18:44:32 +0200 |
---|---|---|
committer | Rasmus Steinke <rasi@xssn.at> | 2017-08-06 18:44:32 +0200 |
commit | 0de10c4e24cd87a5e4981cc8d7ee739c90bbe328 (patch) | |
tree | d20dda1e996483d832df165e20eb7d804b62d3c6 /clerk | |
parent | 4b1bcf0277811e07715a7eaf1ae5da6ef1365589 (diff) | |
download | perl-app-clerk-0de10c4e24cd87a5e4981cc8d7ee739c90bbe328.tar.gz perl-app-clerk-0de10c4e24cd87a5e4981cc8d7ee739c90bbe328.tar.xz |
explicitly encode uri to utf8
Diffstat (limited to 'clerk')
-rwxr-xr-x | clerk | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -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); } } |