better dump on errors

diff --git a/koha/RiakSearch.pm b/koha/RiakSearch.pm
index ddd4aa3..be2bcb5 100644 (file)
--- a/koha/RiakSearch.pm
+++ b/koha/RiakSearch.pm
@@ -46,11 +46,13 @@ sub request {
 #      warn "## $method $full_url ", dump($req, $content);
        my $response = $self->{ua}->request($req);
 
+       warn "$method $full_url ", $response->status_line,$/;
+
        if ($response->is_success) {
-               warn "$full_url ", $response->status_line,$/;
-               return $response->content;
+               #return $response->content;
        } else {
-               die($response->status_line . ":" . $response->content);
+               warn "## header,content ",dump( $headers, $content );
+               die $response->status_line . ":" . $response->content;
        }
 }