Correctly handle non utf8 characters

stockholmuniversity · Sep 22, 2016 · e7dba1d · e7dba1d
1 parent 1e62ec1
commit e7dba1d
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/SU/API/Icinga2.pm b/SU/API/Icinga2.pm
@@ -7,6 +7,7 @@ use LWP::UserAgent;
 use HTTP::Request;
 use URI::Escape;
 use JSON;
+use Encode qw( encode_utf8 );
 
 sub new {
     my $class = shift;
@@ -58,7 +59,8 @@ sub do_request {
     if (!$self->{res}->is_success) {
         return undef;
     };
-    my $json_result = decode_json($self->{res}->content);
+    # Handle non utf8 chars
+    my $json_result = decode_json(encode_utf8($self->{res}->content));
 
     if ($json_result) {
         return $json_result;