From: minima <minima>
Date: Sun, 25 May 2003 00:18:12 +0000 (+0000)
Subject: fix missing origin for isolated nodes
X-Git-Tag: R1_51~14
X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=6ac34274be29c64e3f292622881f7af60009bc5d;p=spider.git

fix missing origin for isolated nodes
---

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