From e8f383d0921d81fc1be12da4d424099d6a554213 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Thu, 9 Oct 2014 12:30:18 +0000
Subject: [PATCH] fhem.pl: stacktrace attribute (Forum #27662)

git-svn-id: https://svn.fhem.de/fhem/trunk@6723 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/fhem.pl | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/fhem/fhem.pl b/fhem/fhem.pl
index 0586c2b54..871db34b2 100755
--- a/fhem/fhem.pl
+++ b/fhem/fhem.pl
@@ -248,7 +248,7 @@ $modules{Global}{AttrList} =
   "backupcmd backupdir backupsymlink backup_before_update " .
   "exclude_from_update motd restoreDirs uniqueID ".
   "sendStatistics:onUpdate,manually,never updateInBackground:1,0 ".
-  "showInternalValues:1,0 ";
+  "showInternalValues:1,0 stacktrace:1,0 ";
 $modules{Global}{AttrFn} = "GlobalAttr";
 
 use vars qw($readingFnAttributes);
@@ -2601,7 +2601,9 @@ SignalHandling()
     chomp($msg);
     Log 1, "PERL WARNING: $msg"; 
     Log 3, "eval: $cmdFromAnalyze" if($cmdFromAnalyze && $msg =~ m/\(eval /);
-    stacktrace() if($attr{global}{verbose} >= 3 && $msg !~ m/ redefined at /);
+    stacktrace() if($attr{global}{stacktrace} &&
+                    $attr{global}{verbose} >= 3 &&
+                    $msg !~ m/ redefined at /);
     $inWarnSub = 0;
   };  
 }