allow local users to be on other nodes

[spider.git] / perl / DXProtHandle.pm

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index e19688bb1bba53295effd70c1a34bcf5326c83b5..29d3e7513c85ede2109a5d328d74ece17502a99b 100644 (file)
--- a/perl/DXProtHandle.pm
+++ b/perl/DXProtHandle.pm
@@ -1758,8 +1758,9 @@ sub handle_92
                # do a pass through removing any references to either locally connected nodes or mycall
                my @nent;
                for (@ent) {
+                       my $dxc;
                        next unless $_ && @$_;
-                       if ($_->[0] eq $main::mycall || DXChannel::get($_->[0])) {
+                       if ($_->[0] eq $main::mycall || (($dxc = DXChannel::get($_->[0])) && $dxc->is_node)) {
                                dbg("PCPROT: $_->[0] refers to locally connected node, ignored") if isdbg('chanerr');
                                next;
                        }