Encode/decode UTF-8 sent to /recieved from MPD.
BUG:120
This commit is contained in:
committed by
craig.p.drummond
parent
6f3f78dc84
commit
d77af23ea8
@@ -33,6 +33,7 @@ use IO::Socket;
|
||||
use threads;
|
||||
use threads::shared;
|
||||
use URI::Escape;
|
||||
use Encode;
|
||||
|
||||
my $isServerMode : shared =0;
|
||||
my $dynamicIsActive : shared =1;
|
||||
@@ -122,10 +123,14 @@ sub sendCommand() {
|
||||
my $status = 0;
|
||||
my $sock=&connectToMpd();
|
||||
my $sockData;
|
||||
$cmd="${cmd}\n";
|
||||
if ($sock && $sock->connected()) {
|
||||
$sock->send("${cmd}\n");
|
||||
print $sock encode('utf-8' => $cmd);
|
||||
$sockData=&readReply($sock);
|
||||
eval { close $sock; };undef $sock;
|
||||
eval { close $sock; }; undef $sock;
|
||||
}
|
||||
if ($sockData ne '') {
|
||||
return decode_utf8($sockData);
|
||||
}
|
||||
return $sockData;
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user