From 6ac34274be29c64e3f292622881f7af60009bc5d Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Sun, 25 May 2003 00:18:12 +0000
Subject: [PATCH] fix missing origin for isolated nodes

---
 perl/DXProt.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 7fd9e7ef..cbd0ff65 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -2037,7 +2037,7 @@ sub send_local_config
 	# send our nodes
 	if ($self->{isolate}) {
 		@localnodes = ( $main::routeroot );
-		$self->send_route(\&pc19, 1, $main::routeroot, $main::routeroot);
+		$self->send_route($main::mycall, \&pc19, 1, $main::routeroot, $main::routeroot);
 	} else {
 		# 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
-- 
2.43.0