From 7820dbbc2eeb2fe79533d5864252358a996fde51 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Tue, 30 Jan 2018 21:05:53 +0000
Subject: [PATCH] 98_fhemdebug.pm: do not size class instances (Forum #73490)

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

diff --git a/fhem/FHEM/98_fhemdebug.pm b/fhem/FHEM/98_fhemdebug.pm
index 6986340b0..165c37708 100644
--- a/fhem/FHEM/98_fhemdebug.pm
+++ b/fhem/FHEM/98_fhemdebug.pm
@@ -131,7 +131,7 @@ 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 eq "CODE" || main->can("$mname$n") || $ref =~ m/::/);
       Log 5, " CHECK $name / $mname / $n / $ref";     # Crash-debugging
       if($ref eq "HASH") {
         $sum += $fn->($fn, $h->{$n}, $name, $cleanUp);