projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
6cb729e
)
fix get{
author
minima
<minima>
Sat, 12 Mar 2005 11:33:00 +0000
(11:33 +0000)
committer
minima
<minima>
Sat, 12 Mar 2005 11:33:00 +0000
(11:33 +0000)
perl/DXProt.pm
patch
|
blob
|
history
diff --git
a/perl/DXProt.pm
b/perl/DXProt.pm
index 629d9cb7c5952757537bb8ed9e697473184a4207..dd53237554b9617ee310b0769af0c755cedf8edb 100644
(file)
--- a/
perl/DXProt.pm
+++ b/
perl/DXProt.pm
@@
-1033,7
+1033,7
@@
sub handle_19
}
# we only output information that we regard as reliable
}
# we only output information that we regard as reliable
- @rout = grep {$_ && (DXChannel::get
{$_->{call}}
|| $_->np) } @rout;
+ @rout = grep {$_ && (DXChannel::get
($_->{call})
|| $_->np) } @rout;
$self->route_pc19($origin, $line, @rout) if @rout;
}
$self->route_pc19($origin, $line, @rout) if @rout;
}
@@
-1122,7
+1122,7
@@
sub handle_21
return;
}
return;
}
- @rout = grep {$_ && (DXChannel::get
{$_->{call}}
|| $_->np) } @rout;
+ @rout = grep {$_ && (DXChannel::get
($_->{call})
|| $_->np) } @rout;
$self->route_pc21($origin, $line, @rout) if @rout;
}
$self->route_pc21($origin, $line, @rout) if @rout;
}
@@
-1913,7
+1913,7
@@
sub send_local_config
for $node (@intcalls) {
push @remotenodes, Route::Node::get($node) unless grep $node eq $_, @rnodes, @remotenodes;
}
for $node (@intcalls) {
push @remotenodes, Route::Node::get($node) unless grep $node eq $_, @rnodes, @remotenodes;
}
- @remotenodes = grep {$_ && (DXChannel::get
{$_->{call}}
|| $_->np) } @remotenodes;
+ @remotenodes = grep {$_ && (DXChannel::get
($_->{call})
|| $_->np) } @remotenodes;
$self->send_route($main::mycall, \&pc19, scalar(@remotenodes), @remotenodes);
}
$self->send_route($main::mycall, \&pc19, scalar(@remotenodes), @remotenodes);
}