[ARVADOS] updated: 5e02059d616d0e4906fe281379d26c69db1a6f23
git at public.curoverse.com
git at public.curoverse.com
Tue Feb 11 19:57:46 EST 2014
Summary of changes:
sdk/perl/lib/Arvados/ResourceMethod.pm | 16 ++++++++--------
1 files changed, 8 insertions(+), 8 deletions(-)
via 5e02059d616d0e4906fe281379d26c69db1a6f23 (commit)
from 953c8ece5b55913bd965a29e6a6ce08ccb7c935d (commit)
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.
commit 5e02059d616d0e4906fe281379d26c69db1a6f23
Author: Tom Clegg <tom at curoverse.com>
Date: Tue Feb 11 16:56:55 2014 -0800
Apply usual parameter encoding logic to method[request] parameter too.
Amends fbd62569bca926fc12917eb60eada82a6d8a83b0
Fixes:
encountered object 'Arvados::ResourceProxy=HASH(0x31fb2f8)', but neither allow_blessed nor convert_blessed settings are enabled at arvados/sdk/perl/lib/Arvados/Request.pm line 42.
diff --git a/sdk/perl/lib/Arvados/ResourceMethod.pm b/sdk/perl/lib/Arvados/ResourceMethod.pm
index cfcc34a..0aaf994 100644
--- a/sdk/perl/lib/Arvados/ResourceMethod.pm
+++ b/sdk/perl/lib/Arvados/ResourceMethod.pm
@@ -28,16 +28,16 @@ sub execute
my %body_params;
my %given_params = @_;
my %extra_params = %given_params;
+ my %method_params = %{$method->{'parameters'}};
if ($method->{'request'}->{'properties'}) {
- while (my ($prop_name, $prop_value) =
- each %{$method->{'request'}->{'properties'}}) {
- if (ref($prop_value) eq 'HASH' && $prop_value->{'$ref'}) {
- $body_params{$prop_name} = $given_params{$prop_name};
- delete $extra_params{$prop_name};
- }
- }
+ while (my ($prop_name, $prop_value) =
+ each %{$method->{'request'}->{'properties'}}) {
+ if (ref($prop_value) eq 'HASH' && $prop_value->{'$ref'}) {
+ $method_params{$prop_name} = { 'type' => 'object' };
+ }
+ }
}
- while (my ($param_name, $param) = each %{$method->{'parameters'}}) {
+ while (my ($param_name, $param) = each %method_params) {
delete $extra_params{$param_name};
if ($param->{'required'} && !exists $given_params{$param_name}) {
croak("Required parameter not supplied: $param_name");
-----------------------------------------------------------------------
hooks/post-receive
--
More information about the arvados-commits
mailing list