From: minima <minima>
Date: Thu, 24 Feb 2005 17:09:31 +0000 (+0000)
Subject: try and fix routing table errors
X-Git-Tag: R_1_52~139
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=ff16b769e7176ff0121d9993e2edd3f46d53a0e3;p=spider.git

try and fix routing table errors
---

diff --git a/perl/Thingy/Rt.pm b/perl/Thingy/Rt.pm
index 89c8452e..49f2bc61 100644
--- a/perl/Thingy/Rt.pm
+++ b/perl/Thingy/Rt.pm
@@ -94,14 +94,18 @@ sub handle_cf
 	my %in;
 	if ($thing->{n}) {
 		for (split(/:/, $thing->{n})) {
-			my ($here, $call) = unpack("A1 A*", $_); 
-			$in{$call} = $here;
+			my ($here, $call) = unpack("A1 A*", $_);
+			unless ($call eq $main::mycall) {
+				$in{$call} = $here;
+			}
 		}
 	}
 	if ($thing->{a}) {
 		for (split(/:/, $thing->{a})) {
 			my ($here, $call) = unpack("A1 A*", $_); 
-			$in{$call} = $here;
+			unless ($call eq $main::mycall) {
+				$in{$call} = $here;
+			}
 		} 
 	}
 	my ($del, $add) = $parent->diff_nodes(keys %in);