From: Sebastian Riedel <sri@labs.kraih.com>
Date: Wed, 7 Dec 2005 15:51:36 +0000 (+0000)
Subject: Switched to 500 status for exceptions
X-Git-Tag: 5.7099_04~791
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=d82cc9aef963f7e5c8da3f5586a271a2655cc635

Switched to 500 status for exceptions
---

diff --git a/Changes b/Changes
index 95bd8a7..5d15789 100644
--- a/Changes
+++ b/Changes
@@ -1,6 +1,7 @@
 This file documents the revision history for Perl extension Catalyst.
 
 5.62
+        - Exceptions now return status 500
         - Updated for Module::Install 0.40
         - Fixed additional file installation for multi level app names
         - Added REDIRECT_URL support for applications running behind
diff --git a/lib/Catalyst/Engine.pm b/lib/Catalyst/Engine.pm
index 9eb6b75..49dff25 100644
--- a/lib/Catalyst/Engine.pm
+++ b/lib/Catalyst/Engine.pm
@@ -104,7 +104,7 @@ sub finalize_error {
         $error ||= 'No output';
         $error = "<pre>$error</pre>";
         $title = $name = "$name on Catalyst $Catalyst::VERSION";
-        $name = "<h1>$name</h1>";
+        $name  = "<h1>$name</h1>";
 
         # Don't show context in the dump
         delete $c->req->{_context};
@@ -142,12 +142,10 @@ EOF
 <pre>
 (en) Please come back later
 (de) Bitte versuchen sie es spaeter nocheinmal
-(nl) Gelieve te komen later terug
+(at) Konnten's bitt'schoen spaeter nochmal reinschauen
 (no) Vennligst prov igjen senere
-(fr) Veuillez revenir plus tard
-(es) Vuelto por favor mas adelante
-(pt) Voltado por favor mais tarde
-(it) Ritornato prego più successivamente
+(dk) Venligst prov igen senere
+(pl) Prosze sprobowac pozniej
 </pre>
 
         $name = '';
@@ -246,6 +244,12 @@ EOF
 </body>
 </html>
 
+
+    # Trick IE
+    $c->res->{body} .= ( ' ' x 512 );
+
+    # Return 500
+    $c->res->status(500) unless $c->res->status;
 }
 
 =head2 $self->finalize_headers($c)