X-Git-Url: http://scm.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=4349b87c506e4fb5a058a1b6874a803e34de92c3;hb=d8187e68f181966eea2dca949ca13e2cbbaf072e;hp=4cf7db7fae76c184b2f3b38e61bac3356a048d90;hpb=85564500ce87c832f2a99fd96ccc1775dc896a0d;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 4cf7db7f..4349b87c 100644
--- 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]");