END_OF_REQUEST-Exception auch bei eingeschaltetem "backtrace on die" erkennen

diff --git a/SL/Dispatcher.pm b/SL/Dispatcher.pm
index a52e4bd..01b6aff 100644 (file)
--- a/SL/Dispatcher.pm
+++ b/SL/Dispatcher.pm
@@ -286,7 +286,7 @@ sub handle_request {
 
     1;
   } or do {
-    if ($EVAL_ERROR ne END_OF_REQUEST) {
+    if (substr($EVAL_ERROR, 0, length(END_OF_REQUEST())) ne END_OF_REQUEST()) {
       my $error = $EVAL_ERROR;
       print STDERR $error;