X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=8ca96434b1448a44f9cdfeb133025cf0247cdbcc;hb=3f1c5ab45aa13e99da6bea0bfcc6d4434beb5871;hp=310416e8dfda883713b863a969a080867e2d55a6;hpb=2c3a20bdcef84e620b0c3c2d306a71ebe17956b0;p=spider.git diff --git a/perl/DXProt.pm b/perl/DXProt.pm index 310416e8..8ca96434 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -315,7 +315,7 @@ sub normal } if ($pcno == 12) { # announces - unless (is_callsign($field[1]) && is_callsign($field[2]) && is_callsign($field[5])) { + unless (is_callsign($field[1]) && is_callsign($field[5])) { dbg('chan', "Corrupt announce, rejected"); return; }