moved to JSON::MaybeXS

1 files changed, 3 insertions, 2 deletions

diff --git a/lib/RHRD/utils.pm b/lib/RHRD/utils.pm
index 3835851..13e8ca1 100755
--- a/lib/RHRD/utils.pm
+++ b/lib/RHRD/utils.pm
@@ -28,7 +28,7 @@ use DateTime;
 use DateTime::TimeZone;
 use LWP::Simple;
 use URI::Fetch;
-use JSON;
+use JSON::MaybeXS;
 
 sub get_rd_week
 {
@@ -178,7 +178,8 @@ sub fetch_parse_json
   my $json = $res->content;
   my $data;
   eval {
-    $data = from_json($json);
+    my $j = JSON::MaybeXS->new(utf8 => 0);
+    $data = $j->decode($json);
     1;
   } or do {
     return (0, "error parsing import result");