start lifting job manager over from free factories to crunch

[arvados.git] / sdk / perl / lib / Arvados / ResourceMethod.pm

diff --git a/sdk/perl/lib/Arvados/ResourceMethod.pm b/sdk/perl/lib/Arvados/ResourceMethod.pm
index 392251f48f9ff04ef1511a1b76f0f0732622a3cf..577e4ea47ab29ea6c2305f121876aa48566b4a33 100644 (file)
--- a/sdk/perl/lib/Arvados/ResourceMethod.pm
+++ b/sdk/perl/lib/Arvados/ResourceMethod.pm
@@ -44,6 +44,9 @@ sub execute
                 if (!exists $given_params{$param_name}->{$property_name}) {
                     ;
                 }
+                elsif ($given_params{$param_name}->{$property_name} eq undef) {
+                    $param_value{$property_name} = JSON::null;
+                }
                 elsif ($property->{'type'} eq 'boolean') {
                     $param_value{$property_name} = $given_params{$param_name}->{$property_name} ? JSON::true : JSON::false;
                 }