Bug 122560 - Correctly detect in_eval under HTTP::Server::Simple

git-svn-id: svn://svn.office.custis.ru/3rdparty/bugzilla.org/trunk@1756 6955db30-a419-402b-8a0d-67ecbb4d7f56

Bugzilla/Error.pm

@@ -49,11 +49,11 @@ sub _in_eval
     my $in = -$IN_EVAL;
     for (my $stack = 1; my $sub = (caller($stack))[3]; $stack++)
     {
+        $in--, last if $sub =~ /^Bugzilla::HTTPServerSimple/;
         last if $sub =~ /^ModPerl/;
         if ($sub =~ /^\(eval\)/)
         {
             $in++;
-            last if $in > 0;
         }
     }
     return $in > 0;