matteo/ytmusicapi-perl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix wide character error

Browse Source
This commit is contained in:
mschuepbach
2024-03-26 21:17:05 +01:00
parent 2c81a2c3de
commit 088fdb2b16
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
YTMusicAPI/Helpers.pm
View File

@@ -11,6 +11,7 @@ use HTTP::Cookies;
use Digest::SHA qw(sha1_hex); use Digest::SHA qw(sha1_hex);
use Time::HiRes qw(time); use Time::HiRes qw(time);
use Unicode::Normalize; use Unicode::Normalize;
use Encode 'encode_utf8', 'is_utf8';
use locale; use locale;
use YTMusicAPI::Constants qw(YTM_DOMAIN USER_AGENT); use YTMusicAPI::Constants qw(YTM_DOMAIN USER_AGENT);
@@ -47,7 +48,9 @@ sub get_visitor_id {
my $visitor_id = ""; my $visitor_id = "";
if (@matches) { if (@matches) {
my $ytcfg = decode_json( $matches[0] ); my $encoded_match =
is_utf8( $matches[0] ) ? encode_utf8( $matches[0] ) : $matches[0];
my $ytcfg = decode_json($encoded_match);
$visitor_id = $ytcfg->{"VISITOR_DATA"} // ""; $visitor_id = $ytcfg->{"VISITOR_DATA"} // "";
} }