]> dxcluster.net Git - spider.git/commitdiff
fix nohere on pc92
authorminima <minima>
Mon, 8 Jan 2007 10:13:54 +0000 (10:13 +0000)
committerminima <minima>
Mon, 8 Jan 2007 10:13:54 +0000 (10:13 +0000)
perl/DXProtHandle.pm

index d7350f4e60a678f4f3d35846f8ce3943a5250d4b..e961b02b82231cefe4e7ec6dbed02e4f32723a5e 100644 (file)
@@ -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;