From: 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);