Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-01 20:20:10 +00:00
Code Issues Packages Projects Releases Wiki Activity

98_freezemon.pm: Minor bugfix

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@20901 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
KernSani 2020-01-06 20:36:42 +00:00
parent 080b457e17
commit 914c2eba34
1 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
FHEM/98_freezemon.pm
View File

@ -22,7 +22,8 @@
#
##############################################################################
# Changelog:
# 0.0.29 (20.12.2019): Removed remaining "Dumper" code
# 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
@ -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 {