Changeset 30436

Timestamp:

2016-03-26T23:06:43+13:00 (8 years ago)

Author:

davidb

Message:

Tweak to allow %xx%xx encodings expressing UTF8 to be correctly handled

File:

• gs2-extensions/music-ir-src/trunk/perllib/plugins/jSongMinerExtractor.pm (modified) (1 diff)

gs2-extensions/music-ir-src/trunk/perllib/plugins/jSongMinerExtractor.pm

@@ -88 +88 @@
     # ARG 1: $to_decode is the string to URL decode
     my ($to_decode) = @_;
-    my $decoded= uri_unescape($to_decode);
+    # really want to use 'uri_unescape_utf8' in the following, but
+    # it doesn't exist in the Perl module.  Follow will suffice
+    # my $decoded= uri_unescape_utf8($to_decode);
+    my $decoded = Encode::decode_utf8(uri_unescape($to_decode));
 
     return $decoded;