From: minima Date: Mon, 8 Jan 2007 10:13:54 +0000 (+0000) Subject: fix nohere on pc92 X-Git-Tag: 1.54~58 X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=a559548c82ccb2171c2942be53fc796d8a4390cf;p=spider.git fix nohere on pc92 --- diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm index d7350f4e..e961b02b 100644 --- a/perl/DXProtHandle.pm +++ b/perl/DXProtHandle.pm @@ -1282,7 +1282,7 @@ sub _decode_pc92_call my $icall = shift; my @part = split /:/, $icall; my ($flag, $call) = unpack "A A*", $part[0]; - return () unless $flag && $flag ge '0' && $flag le '7'; + return () unless defined $flag && $flag ge '0' && $flag le '7'; return () unless $call && is_callsign($call); my $is_node = $flag & 4; my $is_extnode = $flag & 2;