1diff --git a/JSON-RPC-0.96/lib/JSON/RPC/Server.pm b/JSON-RPC-0.96/lib/JSON/RPC/Server.pm 2index df483bb..a1c51cf 100644 3--- JSON-RPC-0.96/lib/JSON/RPC/Server.pm 4+++ JSON-RPC-0.96/lib/JSON/RPC/Server.pm 5@@ -4,7 +4,7 @@ 6 ############################################################################## 7 8 use strict; 9-use JSON (); 10+use JSON::PP; 11 use Carp (); 12 13 use HTTP::Request (); 14@@ -43,7 +43,7 @@ BEGIN { 15 16 17 sub create_json_coder { 18- JSON->new->utf8; # assumes UTF8 19+ JSON::PP->new->utf8; # assumes UTF8 20 } 21 22 23@@ -205,8 +205,8 @@ sub _handle { 24 my $result; 25 26 if ($obj->{version}) { 27- $result = ref $params ? eval q| $procedure->{code}->($self, $params) | 28- : eval q| $procedure->{code}->($self) | 29+ $result = ref $params ? eval q| $procedure->{code}->($params) | 30+ : eval q| $procedure->{code}->() | 31 ; 32 } 33 else { 34@@ -217,7 +217,7 @@ sub _handle { 35 else { 36 $params[0] = $params; 37 } 38- $result = eval q| $procedure->{code}->($self, @params) |; 39+ $result = eval q| $procedure->{code}->(@params) |; 40 } 41 42 43@@ -571,7 +571,7 @@ An error code number in your procedure is an integer between 501 and 899. 44 Setter/Getter to json encoder/decoder object. 45 The default value is L<JSON> object in the below way: 46 47- JSON->new->utf8 48+ JSON::PP->new->utf8 49 50 In your procedure, changes its behaviour. 51 52