new release adds status line on unexpected response

4 files changed, 6 insertions, 3 deletions

diff --git a/Changes b/Changes
index 272c3cd..5db7b94 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,6 @@
+0.1502 Thu Jun 23 15:39:10 BST 2011
+    - added status line to REST response (Robin Edwards)
+
 0.1501 Thu May 19 12:07:51 BST 2011
     - fix pod error in Net/Riak.pm
     - fix GH-12 in Map/Reduce operations (franck cuny)
diff --git a/dist.ini b/dist.ini
index 7617a55..610b2b4 100644
--- a/dist.ini
+++ b/dist.ini
@@ -3,7 +3,7 @@ author = franck cuny <franck@lumberjaph.net>, robin edwards <robin.ge@gmail.com>
 license = Perl_5
 copyright_holder = linkfluence
 copyright_year = 2011
-version = 0.1501
+version = 0.1502
 
 [@Filter]
 bundle = @Basic
diff --git a/lib/Net/Riak/Role/REST/Object.pm b/lib/Net/Riak/Role/REST/Object.pm
index fd89bdf..fc45f3c 100644
--- a/lib/Net/Riak/Role/REST/Object.pm
+++ b/lib/Net/Riak/Role/REST/Object.pm
@@ -89,7 +89,7 @@ sub populate_object {
     if (!grep { $status == $_ } @$expected) {
         confess "Expected status "
           . (join(', ', @$expected))
-          . ", received $status"
+          . ", received: ".$http_response->status_line
     }
 
     if ($status == 404) {
diff --git a/t/rest/populate_object.t b/t/rest/populate_object.t
index b875ad7..20026be 100644
--- a/t/rest/populate_object.t
+++ b/t/rest/populate_object.t
@@ -25,7 +25,7 @@ eval {
     $client->populate_object($object,  $response, [200]);
 };
 
-like $@, qr/Expected status 200, received 400/, "can't populate with a 400";
+like $@, qr/Expected status 200, received: 400/, "can't populate with a 400";
 
 my $value = {value => 1};