From: Ralf Ertzinger <ralf@skytale.net>
Date: Sat, 12 Apr 2014 16:31:46 +0000 (+0200)
Subject: JSJSONArrayParser: ignore garbage at end of JSON string
X-Git-Url: https://git.camperquake.de/gitweb.cgi?p=videosite.git;a=commitdiff_plain;h=aedf7360ae2ac6e69d0b2009603c46eedb0af7a2

JSJSONArrayParser: ignore garbage at end of JSON string
---

diff --git a/videosite/JSJSONArrayParser.pm b/videosite/JSJSONArrayParser.pm
index 82c67f3..7a3b755 100644
--- a/videosite/JSJSONArrayParser.pm
+++ b/videosite/JSJSONArrayParser.pm
@@ -24,8 +24,10 @@ sub parse {
     my $self = shift;
     my $s = shift;
     my $j = JSON->new();
+    my $content;
 
-    return $j->loose->allow_barekey()->allow_singlequote()->decode($s);
+    ($content, undef) = $j->loose->allow_barekey()->allow_singlequote()->decode_prefix($s);
+    return $content;
 }
 
 1;