projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
a mostly working send message implementation
[spider.git]
/
perl
/
DXCluster.pm
diff --git
a/perl/DXCluster.pm
b/perl/DXCluster.pm
index 3f2eda8e5c034b9b76944810ee08018d52e4e7bd..98ceafa9c0d55170c1b220b9fcceda9b87842965 100644
(file)
--- a/
perl/DXCluster.pm
+++ b/
perl/DXCluster.pm
@@
-16,8
+16,8
@@
package DXCluster;
use Exporter;
@ISA = qw(Exporter);
use Exporter;
@ISA = qw(Exporter);
-use Carp;
use DXDebug;
use DXDebug;
+use Carp;
use strict;
use vars qw(%cluster %valid);
use strict;
use vars qw(%cluster %valid);
@@
-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;
}
}
}
}