[Catalyst-commits] r7805 - Catalyst-Action-REST/0.60/branches/decouple_deserialize/lib/Catalyst/Action

[lukes at dev.catalyst.perl.org]

Author: lukes
Date: 2008-05-26 18:53:17 +0100 (Mon, 26 May 2008)
New Revision: 7805

Modified:
   Catalyst-Action-REST/0.60/branches/decouple_deserialize/lib/Catalyst/Action/SerializeBase.pm
Log:
sanified code surrounding recent change

Modified: Catalyst-Action-REST/0.60/branches/decouple_deserialize/lib/Catalyst/Action/SerializeBase.pm
===================================================================
--- Catalyst-Action-REST/0.60/branches/decouple_deserialize/lib/Catalyst/Action/SerializeBase.pm	2008-05-26 17:50:20 UTC (rev 7804)
+++ Catalyst-Action-REST/0.60/branches/decouple_deserialize/lib/Catalyst/Action/SerializeBase.pm	2008-05-26 17:53:17 UTC (rev 7805)
@@ -57,7 +57,7 @@
     # the default
 
     my ($content_type) = grep { $map->{$_} } @{$c->request->accepted_content_types};
-    if ( ! exists $map->{$content_type} ) {
+    unless ( defined $content_type ) {
         if( exists $config->{'default'} ) {
             $content_type = $config->{'default'} ;
         } else {