Bug #93242 for JSON-RPC:

The test script does a call against a bitcoind JSON-RPC server. TEST SCRIPT: #!/usr/bin/perl -w use JSON::RPC::Client; use Data::Dumper; $client = new JSON::RPC::Client; $client->ua->credentials( 'localhost:9932', 'jsonrpc', 'user' => 'password' ); $uri = 'http://localhost:9932/'; $obj = { method => 'getblock', params => ['123'] }; $res = $client->call( $uri, $obj ); if ($res){ if ($res->is_error) { $error = $res->error_message; print "Error : ".$error->{'message'}."\n"; } else { print Dumper($res->result); } } else { print "Status: ".$client->status_line."\n"; }; print Dumper($res); SCRIPT OUTPUT: $perl scrap/jsonrpc.pl Error : Block not found $VAR1 = bless( { 'version' => 0, 'content' => { 'error' => { 'message' => 'Block not found', 'code' => -5 }, 'id' => undef, 'result' => undef }, 'jsontext' => '{"result":null,"error":{"code":-5,"message":"Block not found"},"id":null} ', 'is_success' => 0 }, 'JSON::RPC::ReturnObject' ); MODIFCATION TO JSON::RPC::Client The "is_success" defined in HTTP::Status is >= 200 && < 300, so it only counts HTTP codes 200 - 299 as as success. In your original subroutine, if the response code is something other then this, the return is null. Below are my changes to the call subroutine. sub call { my ($self, $uri, $obj) = @_; my $result; if ($uri =~ /\?/) { $result = $self->_get($uri); } else { Carp::croak "not hashref." unless (ref $obj eq 'HASH'); $result = $self->_post($uri, $obj); } my $service = $obj->{method} =~ /^system\./ if ( $obj ); $self->status_line($result->status_line); return unless($result->content); # notification? if ($service) { return JSON::RPC::ServiceObject->new($result, $self->json); } return JSON::RPC::ReturnObject->new($result, $self->json); } Please let me know your thoughts. Patrick Show quoted text

no problem, i didn't know you had the modules up on github, i'll create a fork, add my changes, and send a pull request. Show quoted text