From ba21997322ff423337ac80b29e147a83dc64deec Mon Sep 17 00:00:00 2001
From: Gavin Carr <gavin@openfusion.com.au>
Date: Thu, 2 Sep 2010 19:31:19 +0100
Subject: tweak Bucket::set_properties error to include status line

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

(limited to 'lib/Net/Riak')

diff --git a/lib/Net/Riak/Bucket.pm b/lib/Net/Riak/Bucket.pm
index c559abe..cd42316 100644
--- a/lib/Net/Riak/Bucket.pm
+++ b/lib/Net/Riak/Bucket.pm
@@ -100,8 +100,8 @@ sub set_properties {
     $request->content(JSON::encode_json({props => $props}));
     my $response = $self->client->useragent->request($request);
 
-    if (!$response->is_success || $response->code != 204) {
-        croak "Error setting bucket properties.";
+    if (!$response->is_success) {
+        die "Error setting bucket properties: " . $response->status_line . "\n";
     }
 }
 
-- 
cgit 1.4.1