From 2bdfaf62d8f61753f8ec9642eb1a43a211640076 Mon Sep 17 00:00:00 2001
From: Tom Clegg <tom@clinicalfuture.com>
Date: Wed, 5 Jun 2013 16:46:31 -0400
Subject: [PATCH] fix "is undef" test

---
 sdk/perl/lib/Arvados/ResourceMethod.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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') {
-- 
2.30.2