projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fixed duplicate spot, always make clean ending
[spider.git]
/
perl
/
DXChannel.pm
diff --git
a/perl/DXChannel.pm
b/perl/DXChannel.pm
index 9c29464083476f9adb922ed46bd88ac41e8b3581..60b36331df668ac1ec10f6e3dcaf4c57e7310241 100644
(file)
--- a/
perl/DXChannel.pm
+++ b/
perl/DXChannel.pm
@@
-137,17
+137,17
@@
$count = 0;
$maxerrors = 20; # the maximum number of concurrent errors allowed before disconnection
# object destruction
$maxerrors = 20; # the maximum number of concurrent errors allowed before disconnection
# object destruction
-sub DESTROY
-{
-
my $self = shift;
-
for (keys %$self) {
-
if (ref($self->{$_})) {
-
delete $self->{$_};
-
}
-
}
-
dbg("DXChannel $self->{call} destroyed ($count)") if isdbg('chan');
-
$count--;
-}
+
#
sub DESTROY
+
#
{
+
#
my $self = shift;
+
#
for (keys %$self) {
+
#
if (ref($self->{$_})) {
+
#
delete $self->{$_};
+
#
}
+
#
}
+
#
dbg("DXChannel $self->{call} destroyed ($count)") if isdbg('chan');
+
#
$count--;
+
#
}
# create a new channel object [$obj = DXChannel->new($call, $msg_conn_obj, $user_obj)]
sub alloc
# create a new channel object [$obj = DXChannel->new($call, $msg_conn_obj, $user_obj)]
sub alloc
@@
-257,7
+257,7
@@
sub get_all_node_calls
my $ref;
my @out;
foreach $ref (values %channels) {
my $ref;
my @out;
foreach $ref (values %channels) {
- push @out, $ref->{call} if $ref->is_node;
+ push @out, $ref->{call} if $ref
&& $ref
->is_node;
}
return @out;
}
}
return @out;
}
@@
-268,7
+268,7
@@
sub get_all_users
my $ref;
my @out;
foreach $ref (values %channels) {
my $ref;
my @out;
foreach $ref (values %channels) {
- push @out, $ref if $ref->is_user;
+ push @out, $ref if $ref
&& $ref
->is_user;
}
return @out;
}
}
return @out;
}