X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=lib%2FClearquest.pm;h=b8638746123e5ebf1d5c8e0be48fa8a8f28461ed;hb=4a16bbdf7cc4455d540a742d143976a632142c24;hp=a31cb88c9f6b5d2818ec29f87a3c33bc4fdd1301;hpb=1140ca8d56832ae529db0f353112ac192cdf9432;p=clearscm.git

diff --git a/lib/Clearquest.pm b/lib/Clearquest.pm
index a31cb88..b863874 100644
--- a/lib/Clearquest.pm
+++ b/lib/Clearquest.pm
@@ -1344,6 +1344,8 @@ Last error
 
 =cut
   
+  # Watch here as $error can very well be 0 which "if $error" would evaluate
+  # to false leaving $self->{error} undefined
   $self->{error} = $error if defined $error;
 
   return $self->{error};
@@ -1846,8 +1848,6 @@ Hash of name/value pairs for all the fields in $table
   
   @fields = $self->_setFields ($table, @fields);
 
-  return if @fields;
-  
   my $entity;
   
   eval {$entity = $self->{session}->GetEntityByDbId ($table, $dbid)};
@@ -2312,7 +2312,9 @@ The $errmsg, if any, when performing the update (empty string for success)
 =cut
   $action ||= 'Modify';
   
-  my %values = %$values;
+  my %values = ();
+
+  %values = %$values if $values;
   
   my $entity;