projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
started the addition of help files
[spider.git]
/
perl
/
DXCluster.pm
diff --git
a/perl/DXCluster.pm
b/perl/DXCluster.pm
index 3f2eda8e5c034b9b76944810ee08018d52e4e7bd..3269073aedc75c6e87936b544ccf916f291fe542 100644
(file)
--- a/
perl/DXCluster.pm
+++ b/
perl/DXCluster.pm
@@
-216,10
+216,11
@@
sub del
sub update_users
{
my $self = shift;
sub update_users
{
my $self = shift;
- if (%{$self->{list}}) {
- $self->{users} = scalar %{$self->{list}};
+ my $count = shift;
+ if ((keys %{$self->{list}})) {
+ $self->{users} = (keys %{$self->{list}});
} else {
} else {
- $self->{users} =
shif
t;
+ $self->{users} =
$coun
t;
}
}
}
}