From cf9820f6fb886634171102b2d8630eb9ec54ca16 Mon Sep 17 00:00:00 2001
From: Gavin Carr <gavin@openfusion.com.au>
Date: Thu, 2 Sep 2010 19:27:34 +0100
Subject: die with status msg if Bucket::get_properties request fails

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

diff --git a/lib/Net/Riak/Bucket.pm b/lib/Net/Riak/Bucket.pm
index 95274f6..c559abe 100644
--- a/lib/Net/Riak/Bucket.pm
+++ b/lib/Net/Riak/Bucket.pm
@@ -85,11 +85,11 @@ sub get_properties {
 
     my $response = $self->client->useragent->request($request);
 
-    my $props = {};
-    if ($response->is_success) {
-        $props = JSON::decode_json($response->content);
+    if (!$response->is_success) {
+        die "Error getting bucket properties: " . $response->status_line . "\n";
     }
-    return $props;
+
+    return JSON::decode_json($response->content);
 }
 
 sub set_properties {
-- 
cgit 1.4.1