$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
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;
}
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;
}