From 1a5cb82ab1db6e4df087c574ac188ee44ce1dad9 Mon Sep 17 00:00:00 2001
From: Marko Oldenburg <leongaultier@gmail.com>
Date: Wed, 2 Oct 2019 11:24:28 +0200
Subject: [PATCH] test

---
 46_TeslaPowerwall2AC.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/46_TeslaPowerwall2AC.pm b/46_TeslaPowerwall2AC.pm
index 0e5cde0..f0a53cc 100644
--- a/46_TeslaPowerwall2AC.pm
+++ b/46_TeslaPowerwall2AC.pm
@@ -630,7 +630,8 @@ sub ResponseProcessing($$$) {
     }
 
     return
-      if (  defined( $decode_json->{error} )
+      if (  ref($decode_json) eq 'HASH'
+        and defined( $decode_json->{error} )
         and $decode_json->{error}
         and defined( $decode_json->{code} )
         and $decode_json->{code} );