]> dxcluster.org Git - spider.git/commitdiff
fix User Route remembering
authorDirk Koopman <djk@tobit.co.uk>
Tue, 24 Mar 2015 00:02:40 +0000 (00:02 +0000)
committerDirk Koopman <djk@tobit.co.uk>
Tue, 24 Mar 2015 00:02:40 +0000 (00:02 +0000)
perl/DXProtHandle.pm

index 1114a1d0811834cb736605bb07f0409d9fa312b6..4d759d4ecd21b937c73dbb210340cfb8e800a73b 100644 (file)
@@ -458,7 +458,7 @@ sub handle_16
 
        my $i;
        my @rout;
-       for ($i = 2; $i < $#_; $i++) {
+       for ($i = 2; $i < $#$pc; $i++) {
                my ($call, $conf, $here) = $pc->[$i] =~ /^(\S+) (\S) (\d)/o;
                next unless $call && $conf && defined $here && is_callsign($call);
                next if $call eq $main::mycall;
@@ -695,7 +695,7 @@ sub handle_19
        # From now on we are only going to believe PC92 data and locally connected
        # non-pc92 nodes.
        #
-       for ($i = 1; $i < $#_-1; $i += 4) {
+       for ($i = 1; $i < $#$pc-1; $i += 4) {
                my $here = $pc->[$i];
                my $call = uc $pc->[$i+1];
                my $conf = $pc->[$i+2];
@@ -1810,7 +1810,7 @@ sub handle_92
                my $me = $pc->[4] || '';
                $me ||= _encode_pc92_call($parent) unless $me ;
 
-               my @ent = map {my @a = _decode_pc92_call($_); @a ? \@a : ()} grep {$_ && /^[0-7]/} $me, @$pc[5 .. $#_];
+               my @ent = map {my @a = _decode_pc92_call($_); @a ? \@a : ()} grep {$_ && /^[0-7]/} $me, @$pc[5 .. $#$pc];
 
                if (@ent) {