diff options
| author | Gavin Carr <gavin@openfusion.com.au> | 2010-09-02 19:27:34 +0100 |
|---|---|---|
| committer | Gavin Carr <gavin@openfusion.com.au> | 2010-09-02 19:27:34 +0100 |
| commit | cf9820f6fb886634171102b2d8630eb9ec54ca16 (patch) | |
| tree | 8f262707404ad64d5be5c20e1833216063193db1 /lib | |
| parent | set object content_type from successful response's (diff) | |
| download | net-riak-cf9820f6fb886634171102b2d8630eb9ec54ca16.tar.gz | |
die with status msg if Bucket::get_properties request fails
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Net/Riak/Bucket.pm | 8 |
1 files 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 { |