X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXCluster.pm;h=c0ec375a88f56eabc3fe39e2fce91417564ae0af;hb=refs%2Ftags%2FR_1_29;hp=a741e5f2c4805742d6d18b1be780f09fc4b99aad;hpb=a3fd9341b7ce57dcc058b82cfba3f40f15631241;p=spider.git

diff --git a/perl/DXCluster.pm b/perl/DXCluster.pm
index a741e5f2..c0ec375a 100644
--- a/perl/DXCluster.pm
+++ b/perl/DXCluster.pm
@@ -136,11 +136,11 @@ sub cluster
 	return " $DXNode::nodes nodes, $users local / $tot total users  Max users $DXNode::maxusers  Uptime $uptime";
 }
 
-sub DESTROY
-{
-	my $self = shift;
-	dbg('cluster', "destroying $self->{call}\n");
-}
+#sub DESTROY
+#{
+#	my $self = shift;
+#	dbg('cluster', "destroying $self->{call}\n");
+#}
 
 no strict;
 sub AUTOLOAD
@@ -251,7 +251,10 @@ sub del
 	}
 	delete $DXCluster::cluster{$call}; # remove me from the cluster table
 	dbg('cluster', "deleting node $call from cluster\n"); 
-	$nodes-- if $nodes > 0;
+	$users -= $self->{users};    # it may be PC50 updated only therefore > 0
+	$users = 0 if $users < 0;
+	$nodes--;
+	$nodes = 0 if $nodes < 0;
 }
 
 sub add_user