[Catalyst-commits] r7702 - Catalyst-Controller-SOAP/1.0/trunk/lib/Catalyst/Controller

[ruoso at dev.catalyst.perl.org]

Author: ruoso
Date: 2008-05-06 23:10:38 +0100 (Tue, 06 May 2008)
New Revision: 7702

Modified:
   Catalyst-Controller-SOAP/1.0/trunk/lib/Catalyst/Controller/SOAP.pm
Log:
[C-C-SOAP] Do not override the fault on uncatched exceptions, because if there is a fault, it means that we already know the cause

Modified: Catalyst-Controller-SOAP/1.0/trunk/lib/Catalyst/Controller/SOAP.pm
===================================================================
--- Catalyst-Controller-SOAP/1.0/trunk/lib/Catalyst/Controller/SOAP.pm	2008-05-06 22:03:40 UTC (rev 7701)
+++ Catalyst-Controller-SOAP/1.0/trunk/lib/Catalyst/Controller/SOAP.pm	2008-05-06 22:10:38 UTC (rev 7702)
@@ -236,7 +236,8 @@
             $c->stash->{soap}->fault
               ({ code => 'Client',
                  reason => 'Unexpected Error', detail =>
-                 'Unexpected error in the application: '.(join "\n", @{$c->error} ).'!'});
+                 'Unexpected error in the application: '.(join "\n", @{$c->error} ).'!'})
+                unless $c->stash->{soap}->fault;
             $c->error(0);
         }