Changeset 276 for lang/perl/POE-Component-Server-JSONRPC/trunk/lib/POE/Component/Server/JSONRPC.pm

Timestamp:

09/25/07 14:23:19 (6 years ago)

Author:

typester

Message:

lang/perl/POE-Component-Server-JSONRPC: 返り値が強制arrayrefになるのを修正。

Files:

• lang/perl/POE-Component-Server-JSONRPC/trunk/lib/POE/Component/Server/JSONRPC.pm (modified) (1 diff)

lang/perl/POE-Component-Server-JSONRPC/trunk/lib/POE/Component/Server/JSONRPC.pm

@@ -160 +160 @@
             {   id => $heap->{id} || undef,
                 error  => undef,
-                result => \@results
+                result => (@results > 1 ? \@results : $results[0]),
             }
         ),