diff --git a/FHEM/98_freezemon.pm b/FHEM/98_freezemon.pm index 791d9e36f..107e7f3b0 100644 --- a/FHEM/98_freezemon.pm +++ b/FHEM/98_freezemon.pm @@ -22,8 +22,9 @@ # ############################################################################## # Changelog: -# 0.0.29 (20.12.2019): Removed remaining "Dumper" code -# Few minor fixes +# 0.0.30 (06.01.2020): Fixed minor issue (topic,83909.msg1009807.html#msg1009807) +# 0.0.29 (20.12.2019): Removed remaining "Dumper" code +# Few minor fixes # 0.0.28: Fixed minor bug in regex for statistics # Added Commandref for getFreezes # 0.0.27: Slightly improved device detection @@ -113,7 +114,7 @@ use B qw(svref_2object); use Blocking; use vars qw($FW_CSRF); -my $version = "0.0.29"; +my $version = "0.0.30"; my @logqueue = (); my @fmCmd = (); @@ -1067,27 +1068,28 @@ sub freezemon_getDevice($$) { $shortarg = $deref->{'hash'}{NAME}; #at least in DOIF_TimerTrigger } else { + $shortarg = "N/A"; #added 06.01.2020 (0.0.30) Forum topic,83909.msg1009807.html#msg1009807 + #Log3 $name, 5, "[Freezemon] $name found a REF $fn " . Dumper( ${$arg} ); } } elsif ( ref($shortarg) eq "" ) { Log3 $name, 5, - "[Freezemon] $name found something that's not a REF $fn " . ref($shortarg) . " " ; #. Dumper($shortarg); + "[Freezemon] $name found something that's not a REF $fn " . ref($shortarg) . " "; #. Dumper($shortarg); ( undef, $shortarg ) = split( /:|;/, $shortarg, 2 ); } else { - Log3 $name, 5, - "[Freezemon] $name found something that's a REF but not a HASH $fn " - . ref($shortarg); # . " " -# . Dumper($shortarg); + Log3 $name, 5, "[Freezemon] $name found something that's a REF but not a HASH $fn " . ref($shortarg); # . " " + + # . Dumper($shortarg); $shortarg = "N/A"; } if ( !defined($shortarg) ) { - Log3 $name, 5, "Freezemon: something went wrong $fn "; # . Dumper($arg); + Log3 $name, 5, "Freezemon: something went wrong $fn "; # . Dumper($arg); $shortarg = "N/A"; } else {