FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-22 14:16:42 +00:00
Code Issues Releases Wiki Activity

98_Analyze.pm: contrib 0.2.0

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@24111 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
nasseeder1 2021-03-28 18:14:51 +00:00
parent 8f4a3c4024
commit 87fbdee5cb
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
fhem/contrib/DS_Starter/98_Analyze.pm
View File

@ -3,7 +3,7 @@
######################################################################################################################### #########################################################################################################################
# 98_Analyze.pm # 98_Analyze.pm
# #
# (c) 2020 by Heiko Maaz # (c) 2020-2021 by Heiko Maaz
# e-mail: Heiko dot Maaz at t-online dot de # e-mail: Heiko dot Maaz at t-online dot de
# #
# This Module analyzes the data structure size in FHEM # This Module analyzes the data structure size in FHEM
@ -89,6 +89,7 @@ BEGIN {
# Versions History intern # Versions History intern
my %vNotesIntern = ( my %vNotesIntern = (
"0.2.0" => "28.03.2021 bug fix ",
"0.1.0" => "25.11.2020 initial " "0.1.0" => "25.11.2020 initial "
); );
@ -531,7 +532,6 @@ return;
###################################################################################### ######################################################################################
# check valide Referenz # check valide Referenz
# return undef wenn Referenz ok.
###################################################################################### ######################################################################################
sub checkRef { sub checkRef {
my $name = shift; my $name = shift;
@ -539,17 +539,20 @@ sub checkRef {
my $obj = shift; my $obj = shift;
my $ref = q{}; my $ref = q{};
my $val;
if ($obj) { if ($obj) {
eval {$ref = ref $oref->{$obj}}; eval {$ref = ref $oref->{$obj}};
$val = $oref->{$obj};
} }
else { else {
eval {$ref = ref $oref}; eval {$ref = ref $oref};
$val = $oref;
} }
return if($ref ne q{}); # Referenz ok return if($ref ne q{}); # Referenz ok
my $ret = "no ref found. Dumper value:\n".Dumper $obj ? $oref->{$obj} : $oref; my $ret = "No ref found. Try print value of the key:\n\n".Dumper $val;
Log3($name, 4, "$name - $ret"); Log3($name, 4, "$name - $ret");
return $ret; return $ret;