From 018d707c8cbbbf56a6cac32e6bfc1b7075f5cc1d Mon Sep 17 00:00:00 2001
From: loredo <loredo@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Mon, 23 Jan 2017 07:55:59 +0000
Subject: [PATCH] Unit.pm: fix Use of uninitialized value

git-svn-id: https://svn.fhem.de/fhem/trunk@13198 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/Unit.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/fhem/FHEM/Unit.pm b/fhem/FHEM/Unit.pm
index 142104fb0..fae14b8ee 100644
--- a/fhem/FHEM/Unit.pm
+++ b/fhem/FHEM/Unit.pm
@@ -4274,9 +4274,11 @@ sub setKeyValAttr($$$$$) {
 
     # write attribute
     $Data::Dumper::Terse    = 1;
+    $Data::Dumper::Deepcopy = 1;
     $Data::Dumper::Sortkeys = 1;
     my $txt = Dumper( $d->{$attribute} );
     $Data::Dumper::Terse    = 0;
+    $Data::Dumper::Deepcopy = 0;
     $Data::Dumper::Sortkeys = 0;
     $txt =~ s/(=>\s*\{|['"],?)\s*\n\s*/$1 /gsm;
     CommandAttr( undef, "$name $attribute $txt" );
@@ -4372,7 +4374,7 @@ sub Unit_DbLog_split($$) {
         $unit    = defined($3) ? $3 : "";
     }
 
-    if ( !looks_like_number($value) ) {
+    unless ( defined($value) && looks_like_number($value) ) {
         Unit_Log3( $name, $reading, undef, 10,
 "Unit_DbLog_split $name: Ignoring event $event: value $value does not look like a number"
         );