From 5d262fc7dd8ed715cd8d107eedc4475017bd697f Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Wed, 31 Jan 2018 13:12:54 +0000
Subject: [PATCH] 98_fhemdebug.pm: some finetuning (Forum #73490)

git-svn-id: https://svn.fhem.de/fhem/trunk@16056 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/98_fhemdebug.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/fhem/FHEM/98_fhemdebug.pm b/fhem/FHEM/98_fhemdebug.pm
index 165c37708..f1df7ebd7 100644
--- a/fhem/FHEM/98_fhemdebug.pm
+++ b/fhem/FHEM/98_fhemdebug.pm
@@ -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 {