From ff16b769e7176ff0121d9993e2edd3f46d53a0e3 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Thu, 24 Feb 2005 17:09:31 +0000
Subject: [PATCH] try and fix routing table errors

---
 perl/Thingy/Rt.pm | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

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);
-- 
2.34.1