From 00f33ae91310d687bec613731199de68e272713e Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Thu, 26 Jun 2008 20:58:47 +0100 Subject: [PATCH] get rid of PC92 local node check this is in addition to the last commit, it also stopped normal linking of nodes as well --- perl/DXProtHandle.pm | 6 +++--- perl/Version.pm | 2 +- 2 files changed, 4 insertions(+), 4 deletions(-) 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, $_; diff --git a/perl/Version.pm b/perl/Version.pm index 4207ca45..e77d9957 100644 --- a/perl/Version.pm +++ b/perl/Version.pm @@ -11,6 +11,6 @@ use vars qw($version $subversion $build); $version = '1.55'; $subversion = '0'; -$build = '24'; +$build = '25'; 1; -- 2.43.0