changed FileHandle to IO::File in cmds

[spider.git] / perl / DXProt.pm

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index d9abfad6f3a4d6f17c1ae236a61ed9557aa2687b..17328bc2cc6ee79c9e31d76cd31cd8df929d393d 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -389,7 +389,7 @@ sub normal
                                # now check the call over
                                my $node = DXCluster->get_exact($call);
                                if ($node) {
-                                       my $dxchan;
+                                       my $dxchan;
                                        if (($dxchan = DXChannel->get($call)) && $dxchan != $self) {
                                                dbg('chan', "LOOP: $call connected locally");
                                        }
@@ -661,6 +661,7 @@ sub normal
                if ($pcno == 50) {              # keep alive/user list
                        my $node = DXCluster->get_exact($field[1]);
                        if ($node) {
+                               return unless $node->isa('DXNode');
                                return unless $node->dxchan == $self;
                                $node->update_users($field[2]);
                        }