[Rt-commit] r13208 - in rt/branches/3.8-TESTING: lib/RT/Interface

[sartak at bestpractical.com]

Author: sartak
Date: Thu Jun 12 11:35:03 2008
New Revision: 13208

Modified:
   rt/branches/3.8-TESTING/   (props changed)
   rt/branches/3.8-TESTING/lib/RT/Interface/Web.pm

Log:
 r62232 at onn:  sartak | 2008-06-12 11:27:23 -0400
 Explicitly provide a "302 Found" to the redirect code to appease Perlbal.


Modified: rt/branches/3.8-TESTING/lib/RT/Interface/Web.pm
==============================================================================
--- rt/branches/3.8-TESTING/lib/RT/Interface/Web.pm	(original)
+++ rt/branches/3.8-TESTING/lib/RT/Interface/Web.pm	Thu Jun 12 11:35:03 2008
@@ -200,7 +200,10 @@
         $uri->port( $ENV{'SERVER_PORT'} );
     }
 
-    $HTML::Mason::Commands::m->redirect($uri->canonical);
+    # Perlbal expects a status message, but Mason's default redirect status 
+    # doesn't provide one. See also rt.cpan.org #36689.
+    $HTML::Mason::Commands::m->redirect($uri->canonical, "302 Found");
+
     $HTML::Mason::Commands::m->abort;
 }