From f3e496e417c6fb548132edfba5a21db6c8cb8974 Mon Sep 17 00:00:00 2001
From: Marko Oldenburg <leongaultier@gmail.com>
Date: Mon, 31 Jul 2017 09:51:01 +0200
Subject: [PATCH] bugfix decode_utf8 in eval call

---
 74_AMADDevice.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/74_AMADDevice.pm b/74_AMADDevice.pm
index 795d1f1..244da3c 100644
--- a/74_AMADDevice.pm
+++ b/74_AMADDevice.pm
@@ -54,7 +54,7 @@ eval "use Encode qw(encode encode_utf8);1" or $missingModul .= "Encode ";
 eval "use JSON;1" or $missingModul .= "JSON ";
 
 
-my $modulversion = "4.0.2";
+my $modulversion = "4.0.3";
 my $flowsetversion = "4.0.0";
 
 
@@ -782,7 +782,7 @@ sub AMADDevice_Parse($$) {
     my $name            = $io_hash->{NAME};
 
 
-    my $decode_json     = eval{decode_json(encode_utf8($json))};
+    my $decode_json     = eval{decode_json($json)};
     if($@){
         Log3 $name, 3, "AMADDevice ($name) - JSON error while request: $@";
         return;