fixed sh/node

[spider.git] / perl / DXProt.pm

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 310416e8dfda883713b863a969a080867e2d55a6..8ca96434b1448a44f9cdfeb133025cf0247cdbcc 100644 (file)
--- 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;
                        }