From 161473dd008dc77a5a3b6ce2d5858eacc8a06a0f Mon Sep 17 00:00:00 2001
From: Gavin Carr <gavin@openfusion.com.au>
Date: Wed, 1 Sep 2010 20:46:31 +0100
Subject: set object content_type from successful response's

---
 lib/Net/Riak/Object.pm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'lib/Net')

diff --git a/lib/Net/Riak/Object.pm b/lib/Net/Riak/Object.pm
index 0dc6a83..59ecde1 100644
--- a/lib/Net/Riak/Object.pm
+++ b/lib/Net/Riak/Object.pm
@@ -166,6 +166,8 @@ sub populate {
     }
 
     if ($status == 200) {
+        $self->content_type($http_response->content_type)
+            if $http_response->content_type;
         $self->data(JSON::decode_json($self->data))
             if $self->content_type eq 'application/json';
         $self->vclock($http_response->header('X-Riak-Vclock'));
-- 
cgit v1.2.3