From b4902de2965ded18eadc0588d24130b62274eec0 Mon Sep 17 00:00:00 2001
From: djk <djk>
Date: Sat, 30 Jan 1999 19:59:18 +0000
Subject: [PATCH] tried to make the date parsing more robust PC16 can come in
 without a call

---
 perl/DXProt.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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?)
-- 
2.34.1