diff options
Diffstat (limited to '')
| -rw-r--r-- | lib/Net/Riak/Object.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/Net/Riak/Object.pm b/lib/Net/Riak/Object.pm index 25275c5..714776c 100644 --- a/lib/Net/Riak/Object.pm +++ b/lib/Net/Riak/Object.pm @@ -143,9 +143,10 @@ sub populate { $self->data($http_response->content); if (!grep { $status == $_ } @$expected) { - croak "Expected status " + confess "Expected status " . (join(', ', @$expected)) - . ", received $status"; + . ", received: \n" + . $http_response->as_string; } if ($status == 404) { |