projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
08e7ab8
)
fix User Route remembering
author
Dirk Koopman
<djk@tobit.co.uk>
Tue, 24 Mar 2015 00:02:40 +0000
(
00:02
+0000)
committer
Dirk Koopman
<djk@tobit.co.uk>
Tue, 24 Mar 2015 00:02:40 +0000
(
00:02
+0000)
perl/DXProtHandle.pm
patch
|
blob
|
history
diff --git
a/perl/DXProtHandle.pm
b/perl/DXProtHandle.pm
index 1114a1d0811834cb736605bb07f0409d9fa312b6..4d759d4ecd21b937c73dbb210340cfb8e800a73b 100644
(file)
--- a/
perl/DXProtHandle.pm
+++ b/
perl/DXProtHandle.pm
@@
-458,7
+458,7
@@
sub handle_16
my $i;
my @rout;
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;
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.
#
# 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];
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 $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) {
if (@ent) {