From: Tom Clegg <tom@clinicalfuture.com>
Date: Wed, 5 Jun 2013 20:46:31 +0000 (-0400)
Subject: fix "is undef" test
X-Git-Tag: 1.1.0~3279
X-Git-Url: https://git.arvados.org/arvados.git/commitdiff_plain/2bdfaf62d8f61753f8ec9642eb1a43a211640076

fix "is undef" test
---

diff --git a/sdk/perl/lib/Arvados/ResourceMethod.pm b/sdk/perl/lib/Arvados/ResourceMethod.pm
index 52334d7fe2..76c1ac8691 100644
--- a/sdk/perl/lib/Arvados/ResourceMethod.pm
+++ b/sdk/perl/lib/Arvados/ResourceMethod.pm
@@ -50,7 +50,7 @@ sub execute
                     if (!exists $given_params{$param_name}->{$property_name}) {
                         ;
                     }
-                    elsif ($given_params{$param_name}->{$property_name} eq undef) {
+                    elsif (!defined $given_params{$param_name}->{$property_name}) {
                         $param_value{$property_name} = JSON::null;
                     }
                     elsif ($property->{'type'} eq 'boolean') {