diff --git a/fhem/FHEM/98_fhemdebug.pm b/fhem/FHEM/98_fhemdebug.pm index bf4d994e5..04e25e98f 100644 --- a/fhem/FHEM/98_fhemdebug.pm +++ b/fhem/FHEM/98_fhemdebug.pm @@ -4,6 +4,7 @@ package main; use strict; use warnings; +use B qw(svref_2object); my $fhemdebug_enabled; my $main_callfn; @@ -113,8 +114,13 @@ fhemdebug_timerList($) for my $h (@intAtA) { my $tt = $h->{TRIGGERTIME}; + my $fnName = $h->{FN}; + if(ref($fnName) ne "") { + my $cv = svref_2object($fnName); + $fnName = $cv->GV->NAME if($cv); # get function name + } push(@res, sprintf("%s.%05d %s%s", - FmtDateTime($tt), int(($tt-int($tt))*100000), $h->{FN}, + FmtDateTime($tt), int(($tt-int($tt))*100000), $fnName, $h->{STACKTRACE} ? $h->{STACKTRACE} : "")); } return join("\n", @res);