X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProtHandle.pm;h=2fa4095fa381c0a1b9ddb94829405a7cd6fd9173;hb=00f33ae91310d687bec613731199de68e272713e;hp=29d3e7513c85ede2109a5d328d74ece17502a99b;hpb=b4788593ff3c3a731fa5dfb5aa4025ce877e0fe8;p=spider.git diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm index 29d3e751..2fa4095f 100644 --- a/perl/DXProtHandle.pm +++ b/perl/DXProtHandle.pm @@ -1755,13 +1755,13 @@ sub handle_92 push @radd, $add if $add; } - # do a pass through removing any references to either locally connected nodes or mycall + # do a pass through removing any references to either mycall my @nent; for (@ent) { my $dxc; next unless $_ && @$_; - if ($_->[0] eq $main::mycall || (($dxc = DXChannel::get($_->[0])) && $dxc->is_node)) { - dbg("PCPROT: $_->[0] refers to locally connected node, ignored") if isdbg('chanerr'); + if ($_->[0] eq $main::mycall) { + dbg("PCPROT: $_->[0] refers to me, ignored") if isdbg('chanerr'); next; } push @nent, $_;