X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=perl%2FDXCluster.pm;h=8bd2c36ffb772eb5a24edab6b35d996dfc1c36f1;hb=9a55af9586711ecdea8dc9b0da38509119fa8090;hp=153c70e9c80b5309ca0d0a8ffc19f31438288e96;hpb=f2c147d7ffa7b8dab43cbf0baf6834f8bb962fe0;p=spider.git

diff --git a/perl/DXCluster.pm b/perl/DXCluster.pm
index 153c70e9..8bd2c36f 100644
--- a/perl/DXCluster.pm
+++ b/perl/DXCluster.pm
@@ -261,7 +261,9 @@ sub update_users
 {
   my $self = shift;
   my $count = shift;
-  $users -= $self->{users};
+  $count = 0 unless $count;
+  
+  $users -= $self->{users} if $self->{users};
   if ((keys %{$self->{list}})) {
     $self->{users} = (keys %{$self->{list}});
   } else {