1diff --git a/JSON-RPC-0.96/lib/JSON/RPC/Client.pm b/JSON-RPC-0.96/lib/JSON/RPC/Client.pm 2index 4bd36eb..30166ca 100644 3--- JSON-RPC-0.96/lib/JSON/RPC/Client.pm 4+++ JSON-RPC-0.96/lib/JSON/RPC/Client.pm 5@@ -4,7 +4,7 @@ 6 ############################################################################## 7 8 use strict; 9-use JSON (); 10+use JSON::PP; 11 use Carp (); 12 13 ############################################################################## 14@@ -62,7 +62,7 @@ sub AUTOLOAD { 15 16 17 sub create_json_coder { 18- JSON->new->allow_nonref->utf8; 19+ JSON::PP->new->allow_nonref->utf8; 20 } 21 22 23@@ -183,7 +183,7 @@ BEGIN { 24 25 sub new { 26 my ($class, $obj, $json) = @_; 27- my $content = ( $json || JSON->new->utf8 )->decode( $obj->content ); 28+ my $content = ( $json || JSON::PP->new->utf8 )->decode( $obj->content ); 29 30 my $self = bless { 31 jsontext => $obj->content, 32@@ -357,7 +357,7 @@ Setter/getter to L<LWP::UserAgent> object. 33 Setter/getter to the JSON coder object. 34 Default is L<JSON>, likes this: 35 36- $self->json( JSON->new->allow_nonref->utf8 ); 37+ $self->json( JSON::PP->new->allow_nonref->utf8 ); 38 39 $json = $self->json; 40 41