try and fix routing table errors

diff --git a/perl/Thingy/Rt.pm b/perl/Thingy/Rt.pm
index 89c8452ea56927a9d05bef9414efe45b870a2b4f..49f2bc616cc5167781421c13bf08b811496592d0 100644 (file)
--- 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);