X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=ff891427079e0da82419badd01176534a9be815e;hb=b4902de2965ded18eadc0588d24130b62274eec0;hp=b0d21db377ee62d8d7c847cfbc1dd4d1b4c0debc;hpb=4647d4d8a9a97117b29c7b3a0477de2e76c01194;p=spider.git 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?)