X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/ee71d3153423b1008bcfcf861dcea48fe056a618..a11d7a85a9b73798acb3a11b6ba4251ba331b19c:/SL/Dispatcher.pm

diff --git a/SL/Dispatcher.pm b/SL/Dispatcher.pm
index a52e4bd4b..01b6aff2e 100644
--- 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;