From b4902de2965ded18eadc0588d24130b62274eec0 Mon Sep 17 00:00:00 2001 From: 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.43.0