projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add CTY1904 prefixes
[spider.git]
/
perl
/
cluster.pl
diff --git
a/perl/cluster.pl
b/perl/cluster.pl
index 7b889fc4c63781d4e9ace3641932a7d594e8695e..bec097821a7fd6dcf3046e29594f6e451c9d1284 100755
(executable)
--- a/
perl/cluster.pl
+++ b/
perl/cluster.pl
@@
-187,7
+187,7
@@
sub new_channel
# (fairly) politely disconnect people that are connected to too many other places at once
my $r = Route::get($call);
# (fairly) politely disconnect people that are connected to too many other places at once
my $r = Route::get($call);
- if ($conn->{sort} =~ /^I/ && $r && $user) {
+ if ($conn->{sort}
&& $conn->{sort}
=~ /^I/ && $r && $user) {
my @n = $r->parents;
my $m = $r->isa('Route::Node') ? $maxconnect_node : $maxconnect_user;
my $c = $user->maxconnect;
my @n = $r->parents;
my $m = $r->isa('Route::Node') ? $maxconnect_node : $maxconnect_user;
my $c = $user->maxconnect;