From a1af3974beeba0cffe7d5a4a642d56e5a0790589 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Tue, 14 Apr 2020 13:19:24 +0000
Subject: [PATCH] 98_fhemdebug.pm: display function-reference-names (Forum
 #110125)

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

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);