diff options
author | Gavin Carr <gavin@openfusion.com.au> | 2010-09-02 19:31:19 +0100 |
---|---|---|
committer | Gavin Carr <gavin@openfusion.com.au> | 2010-09-02 19:31:19 +0100 |
commit | ba21997322ff423337ac80b29e147a83dc64deec (patch) | |
tree | 879ae6e7963f11fb072bac99c7311fb09614a395 /lib/Net/Riak | |
parent | die with status msg if Bucket::get_properties request fails (diff) | |
download | net-riak-ba21997322ff423337ac80b29e147a83dc64deec.tar.gz |
tweak Bucket::set_properties error to include status line
Diffstat (limited to 'lib/Net/Riak')
-rw-r--r-- | lib/Net/Riak/Bucket.pm | 4 |
1 files changed, 2 insertions, 2 deletions
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"; } } |