better dump on errors

[NoSQL-toys.git] / koha / RiakSearch.pm

diff --git a/koha/RiakSearch.pm b/koha/RiakSearch.pm
index ceebb9c..be2bcb5 100644 (file)
--- a/koha/RiakSearch.pm
+++ b/koha/RiakSearch.pm
@@ -43,14 +43,16 @@ sub request {
        $req->header( $_ => $headers->{$_} ) foreach keys %$headers;
        $req->header( 'Host' => $1 ) if $self->{url} =~ m{http://([^/]+)};
 
-       warn "# $method $full_url ", dump($req, $content);
+#      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;
        }
 }