tried to make the date parsing more robust

PC16 can come in without a call

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index b0d21db377ee62d8d7c847cfbc1dd4d1b4c0debc..ff891427079e0da82419badd01176534a9be815e 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -271,7 +271,7 @@ sub normal
                        
                        for ($i = 2; $i < $#field; $i++) {
                                my ($call, $confmode, $here) = $field[$i] =~ /^(\S+) (\S) (\d)/o;
-                               next if length $call < 3 || length $call > 8;
+                               next if !$call || length $call < 3 || length $call > 8;
                                next if !$confmode;
                                $call = uc $call;
                                next if DXCluster->get_exact($call); # we already have this (loop?)