From 2e89e1ddea9ecaca5352dfa557c275f35830ee1c Mon Sep 17 00:00:00 2001
From: Tom Clegg <tom@curoverse.com>
Date: Tue, 11 Feb 2014 21:07:52 -0800
Subject: [PATCH] Allow passing hashes as resource attributes. This lets
 crunch-job keep jobs.tasks_summary up to date.

---
 sdk/perl/lib/Arvados/ResourceMethod.pm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/sdk/perl/lib/Arvados/ResourceMethod.pm b/sdk/perl/lib/Arvados/ResourceMethod.pm
index 0aaf9946ba..649d779c67 100644
--- a/sdk/perl/lib/Arvados/ResourceMethod.pm
+++ b/sdk/perl/lib/Arvados/ResourceMethod.pm
@@ -76,6 +76,12 @@ sub execute
                     if (ref $property eq '' || $property eq undef) {
                         $param_value{$property_name} = $property;
                     }
+                    elsif (ref $property eq 'HASH') {
+                        $param_value{$property_name} = {};
+                        while (my ($k, $v) = each %$property) {
+                            $param_value{$property_name}->{$k} = $v;
+                        }
+                    }
                 }
             }
             $body_params{$param_name} = \%param_value;
-- 
2.30.2