[Catalyst-commits] r13484 - Catalyst-Manual/5.80/trunk/lib/Catalyst/Manual

[antgel at dev.catalyst.perl.org]

Author: antgel
Date: 2010-08-12 15:52:06 +0100 (Thu, 12 Aug 2010)
New Revision: 13484

Modified:
   Catalyst-Manual/5.80/trunk/lib/Catalyst/Manual/Cookbook.pod
Log:
Custom error page without throwing logging away.


Modified: Catalyst-Manual/5.80/trunk/lib/Catalyst/Manual/Cookbook.pod
===================================================================
--- Catalyst-Manual/5.80/trunk/lib/Catalyst/Manual/Cookbook.pod	2010-08-11 15:56:30 UTC (rev 13483)
+++ Catalyst-Manual/5.80/trunk/lib/Catalyst/Manual/Cookbook.pod	2010-08-12 14:52:06 UTC (rev 13484)
@@ -33,9 +33,12 @@
 
         if ( scalar @{ $c->error } ) {
             $c->stash->{errors}   = $c->error;
+            for my $error ( @{ $c->error } ) {
+                $c->log->error($error);
+            }
             $c->stash->{template} = 'errors.tt';
             $c->forward('MyApp::View::TT');
-            $c->error(0);
+            $c->clear_errors;
         }
 
         return 1 if $c->response->status =~ /^3\d\d$/;