From: minima <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.org/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;