add dxver to these routines

[spider.git] / perl / DXProtHandle.pm

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index d7350f4e60a678f4f3d35846f8ce3943a5250d4b..df2957a18e5b5c699be7b2e6c042b0cab4cd2e86 100644 (file)
--- a/perl/DXProtHandle.pm
+++ b/perl/DXProtHandle.pm
@@ -37,6 +37,9 @@ use RouteDB;
 
 use strict;
 
+use vars qw($VERSION $BRANCH);
+($VERSION, $BRANCH) = dxver(q$Revision$);
+
 use vars qw($pc11_max_age $pc23_max_age $last_pc50 $eph_restime $eph_info_restime $eph_pc34_restime
                        $last_hour $last10 %eph  %pings %rcmds $ann_to_talk
                        $pingint $obscount %pc19list $chatdupeage $chatimportfn
@@ -1282,7 +1285,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;