mhop/fhem
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

98_fhemdebug.pm: some finetuning (Forum #73490)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@16056 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig
2018-01-31 13:12:54 +00:00
parent 5c232dff1d
commit 5d262fc7dd
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
fhem/FHEM/98_fhemdebug.pm
View File

@@ -131,9 +131,10 @@ fhemdebug_memusage($)
my $name = ($mname eq "main::" ? "$mname$n" : "${mname}::$n");
$ref = "HASH" if(!$ref && $mname eq "main::" && $mh{$n});
next if($n eq "main::" || $n eq "IODev" ||
$ref eq "CODE" || main->can("$mname$n") || $ref =~ m/::/);
Log 5, " CHECK $name / $mname / $n / $ref"; # Crash-debugging
$ref eq "CODE" || main->can($name) || $ref =~ m/::/);
Log 5, " Check $name / $mname / $n / $ref"; # Crash-debugging
if($ref eq "HASH") {
next if($mname ne "main::defs" && $h->{$n}{TYPE} && $h->{$n}{NAME});
$sum += $fn->($fn, $h->{$n}, $name, $cleanUp);
} else {