From: djk <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?)