From 66efc9cee6be378f570c0f08f0f41ba739a3d8d2 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Mon, 3 Sep 2001 17:53:10 +0000
Subject: [PATCH] fix set/iso for send_local_config

---
 Changes        | 2 +-
 perl/DXProt.pm | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/Changes b/Changes
index d6f33553..5da4f7b3 100644
--- a/Changes
+++ b/Changes
@@ -8,7 +8,7 @@ on the 14th minute in the connection time for each channel. This should
 reduce (slightly) the dups that are dumped.
 5. Speed up input queue processing (a lot).
 6. make set/isolate and acc/route mutually exclusive (and issue appropriate
-error messages).
+error messages) and fix set/iso on PC18 input.
 7. Improve stat/route_node and stat/route_user for diagnostics.
 8. strip top bit of comments in ann/spots.
 9. fix the announce filtering problem.
diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 51348c82..8ee77084 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -654,7 +654,7 @@ sub normal
 			# first clear out any nodes on this dxchannel
 			my $parent = Route::Node::get($self->{call});
 			my @rout = $parent->del_nodes;
-			$self->route_pc21(@rout, $parent);
+			$self->route_pc21(@rout, $parent) if @rout;
 			$self->send_local_config();
 			$self->send(pc20());
 			return;             # we don't pass these on
@@ -1405,7 +1405,7 @@ sub send_local_config
 		# create a list of all the nodes that are not connected to this connection
 		# and are not themselves isolated, this to make sure that isolated nodes
         # don't appear outside of this node
-		my @dxchan = grep { $_->call ne $main::mycall && $_->call ne $self->{call} } DXChannel::get_all_nodes();
+		my @dxchan = grep { $_->call ne $main::mycall && $_ != $self && !$_->{isolate} } DXChannel::get_all_nodes();
 		@localnodes = map { my $r = Route::Node::get($_->{call}); $r ? $r : () } @dxchan if @dxchan;
 		my @intcalls = map { $_->nodes } @localnodes if @localnodes;
 		my $ref = Route::Node::get($self->{call});
-- 
2.34.1