From 76239ef27cbe9905d84cd1c3b8e3bb22ecf21c45 Mon Sep 17 00:00:00 2001
From: justme1968 <justme1968@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Mon, 23 Jan 2017 13:08:14 +0000
Subject: [PATCH] 31_HUEDevice.pm: try to use Data::Dumper in messages if
 available

git-svn-id: https://svn.fhem.de/fhem/trunk@13206 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/31_HUEDevice.pm | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

diff --git a/fhem/FHEM/31_HUEDevice.pm b/fhem/FHEM/31_HUEDevice.pm
index bf24ddd0e..87926f60e 100644
--- a/fhem/FHEM/31_HUEDevice.pm
+++ b/fhem/FHEM/31_HUEDevice.pm
@@ -141,6 +141,7 @@ my %dim_values = (
 );
 
 
+my $HUEDevice_hasDataDumper = 1;
 
 sub HUEDevice_Initialize($)
 {
@@ -169,6 +170,9 @@ sub HUEDevice_Initialize($)
   #$hash->{FW_summaryFn} = "HUEDevice_summaryFn";
 
   FHEM_colorpickerInit();
+
+  eval "use Data::Dumper";
+  $HUEDevice_hasDataDumper = 0 if($@);
 }
 
 sub
@@ -1060,12 +1064,16 @@ HUEDevice_Parse($$)
   my $name = $hash->{NAME};
 
   if( ref($result) ne "HASH" ) {
-    Log3 $name, 2, "$name: got wrong status message for $name: $result";
+    if( ref($result) && $HUEDevice_hasDataDumper) {
+      Log3 $name, 2, "$name: got wrong status message for $name: ". Dumper $result;
+    } else {
+      Log3 $name, 2, "$name: got wrong status message for $name: $result";
+    }
     return undef;
   }
 
   Log3 $name, 4, "parse status message for $name";
-  #Log3 $name, 5, Dumper $result;
+  Log3 $name, 5, Dumper $result if($HUEDevice_hasDataDumper);
 
   $hash->{name} = $result->{name} if( defined($result->{name}) );
   $hash->{type} = $result->{type} if( defined($result->{type}) );
@@ -1207,7 +1215,7 @@ HUEDevice_Parse($$)
       return undef if( $hash->{lastupdated} && $hash->{lastupdated} eq $lastupdated );
 
       Log3 $name, 4, "$name: lastupdated: $lastupdated, hash->{lastupdated}:  $hash->{lastupdated}";
-      Log3 $name, 5, "$name: ". Dumper $result;
+      Log3 $name, 5, "$name: ". Dumper $result if($HUEDevice_hasDataDumper);
 
       $hash->{lastupdated} = $lastupdated;