From 5ed3964b50ca394ae47d335b70bc8282c037fe77 Mon Sep 17 00:00:00 2001 From: djk Date: Tue, 19 Jan 1999 10:09:59 +0000 Subject: [PATCH] fiddled with user counts a bit more --- perl/DXCluster.pm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/perl/DXCluster.pm b/perl/DXCluster.pm index a741e5f2..021ff7f2 100644 --- a/perl/DXCluster.pm +++ b/perl/DXCluster.pm @@ -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 -- 2.43.0