From: djk Date: Sat, 30 Jan 1999 19:59:18 +0000 (+0000) Subject: tried to make the date parsing more robust X-Git-Tag: R_1_24~25 X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=b4902de2965ded18eadc0588d24130b62274eec0;p=spider.git 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 b0d21db3..ff891427 100644 --- 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?)