Call JSON::decode() explicitly.

This commit is contained in:
Daniel Nichter
2013-06-15 13:00:15 -07:00
parent ccb2a7e7c7
commit e825b233f5
2 changed files with 6 additions and 7 deletions

View File

@@ -105,7 +105,7 @@ sub get {
# The resource should be represented as JSON, decode it.
my $resource = eval {
decode_json($self->response->content);
JSON::decode_json($self->response->content);
};
if ( $EVAL_ERROR ) {
warn sprintf "Error decoding resource: %s: %s",