JSJSONArrayParser: use more relaxed parsing

diff --git a/videosite/JSJSONArrayParser.pm b/videosite/JSJSONArrayParser.pm
index 052e325..1fd44b0 100644 (file)
--- a/videosite/JSJSONArrayParser.pm
+++ b/videosite/JSJSONArrayParser.pm
@@ -8,7 +8,7 @@
 package videosite::JSJSONArrayParser;
 
 use videosite::JSArrayParser;
-use JSON;
+use JSON -support_by_pp;
 @ISA = qw(videosite::JSArrayParser);
 
 use strict;
@@ -23,8 +23,9 @@ sub new {
 sub parse {
     my $self = shift;
     my $s = shift;
+    my $j = JSON->new();
 
-    return decode_json($s);
+    return $j->loose->decode($s);
 }
 
 1;