From a559548c82ccb2171c2942be53fc796d8a4390cf Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Mon, 8 Jan 2007 10:13:54 +0000
Subject: [PATCH] fix nohere on pc92

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

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;
-- 
2.34.1