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