*** empty log message ***

[spider.git] / perl / DXProt.pm

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 4d9942dda505daefaf2a1b69815a32dbf9a2a6a1..a7cf9e6f9d96952db58fd4b9c4b41f493f51833f 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -228,6 +228,7 @@ sub normal
                        }
                        
                        # do some de-duping
+                       $field[5] =~ s/^\s+//;      # take any leading blanks off
                        if (Spot::dup($field[1], $field[2], $d, $field[5])) {
                                dbg('chan', "Duplicate Spot ignored\n");
                                return;
@@ -260,6 +261,7 @@ sub normal
                
                if ($pcno == 12) {              # announces
                        # announce duplicate checking
+                       $field[3] =~ s/^\s+//;  # remove leading blanks
                        if (AnnTalk::dup($field[1], $field[2], $field[3])) {
                                dbg('chan', "Duplicate Announce ignored\n");
                                return;