projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
c0b8fc3
)
fix nohere on pc92
author
minima
<minima>
Mon, 8 Jan 2007 10:13:54 +0000
(10:13 +0000)
committer
minima
<minima>
Mon, 8 Jan 2007 10:13:54 +0000
(10:13 +0000)
perl/DXProtHandle.pm
patch
|
blob
|
history
diff --git
a/perl/DXProtHandle.pm
b/perl/DXProtHandle.pm
index d7350f4e60a678f4f3d35846f8ce3943a5250d4b..e961b02b82231cefe4e7ec6dbed02e4f32723a5e 100644
(file)
--- 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;