From 8b6eecc5d9fe028933e51cfebaa62ed72eb073ce Mon Sep 17 00:00:00 2001
From: "mkanat%bugzilla.org" <>
Date: Wed, 12 Jul 2006 13:05:07 +0000
Subject: Bug 342757: searching results in "YOUR BROWSER DOESN'T SUPPORT THIS
 SERVER-PUSH TECHNOLOGY" warning on brower under mod_perl Patch By Max
 Kanat-Alexander <mkanat@bugzilla.org> r=justdave, a=justdave

---
 buglist.cgi | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'buglist.cgi')

diff --git a/buglist.cgi b/buglist.cgi
index 1a7ffc316..1400968fc 100755
--- a/buglist.cgi
+++ b/buglist.cgi
@@ -884,6 +884,12 @@ if ($serverpush) {
     $template->process("list/server-push.html.tmpl", $vars)
       || ThrowTemplateError($template->error());
 
+    # Under mod_perl, flush stdout so that the page actually shows up.
+    if ($ENV{MOD_PERL}) {
+        require Apache2::RequestUtil;
+        Apache2::RequestUtil->request->rflush();
+    }
+
     # Don't do multipart_end() until we're ready to display the replacement
     # page, otherwise any errors that happen before then (like SQL errors)
     # will result in a blank page being shown to the user instead of the error.
-- 
cgit v1.2.3-24-g4f1b