FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-10 09:16:53 +00:00
Code Issues Releases Wiki Activity

fhemdebug.pm: some more doc/warning and debug output

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@20132 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2019-09-08 10:30:46 +00:00
parent ba1185ed4b
commit caef718846
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
fhem/FHEM/98_fhemdebug.pm
View File

@ -151,6 +151,7 @@ fhemdebug_memusage($)
$k =~ m/::$/ ||
exists &{$k}));
Log 5, "Memusage checking $k";
if($elName eq "%main::") {
my $t = '@';
if(eval "ref \\$t$k" eq "ARRAY") {
@ -167,6 +168,7 @@ fhemdebug_memusage($)
$cmd = "\$ts{'$t$k'} = Devel::Size::total_size(\\$t$k)";
eval $cmd;
}
} else {
my $k2 = "{$elName\{'$k'}}";
my $k3 = "{$elName2\{\\'$k\\'}}";
@ -254,6 +256,9 @@ fhemdebug_timerList($)
installed first.</li>
<li>the function will only display globally visible data (no module or
function local variables).</li>
<li>The used function Devel::Size::total_size may crash perl (and FHEM)
for some other data structures. It works for me, but make sure you
saved your fhem.cfg before calling it. </li>
</ul>
</li>