From 12fd8953972f47d3a75bb35ec12336a64ec7c110 Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Wed, 1 Dec 2010 15:47:24 +0100
Subject: fix a problem when decoding serialized content when not needed

---
 lib/Net/HTTP/Spore/Middleware/Format.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'lib/Net/HTTP')

diff --git a/lib/Net/HTTP/Spore/Middleware/Format.pm b/lib/Net/HTTP/Spore/Middleware/Format.pm
index 2741295..1fd5ce5 100644
--- a/lib/Net/HTTP/Spore/Middleware/Format.pm
+++ b/lib/Net/HTTP/Spore/Middleware/Format.pm
@@ -54,8 +54,9 @@ sub call {
         sub {
             my $res = shift;
             if ( $res->body ) {
-                my $content = $self->decode( $res->body );
+                return if $res->code >= 500;
                 return unless $self->should_deserialize( $res->env );
+                my $content = $self->decode( $res->body );
                 $res->body($content);
                 $res->env->{ $self->deserializer_key } = 1;
             }
-- 
cgit 1.4.1