prevent merges to myself

[spider.git] / perl / DXProt.pm

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 4cf7db7fae76c184b2f3b38e61bac3356a048d90..4349b87c506e4fb5a058a1b6874a803e34de92c3 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -545,6 +545,10 @@ sub normal
                                route($field[1], $line);
                                return;
                        }
+                       if ($field[2] eq $main::mycall) {
+                               dbg('chan', "Trying to merge to myself, ignored");
+                               return;
+                       }
 
                        Log('DXProt', "Merge request for $field[3] spots and $field[4] WWV from $field[1]");