hamradio/spider
1
0
Fork 0
mirror of git://scm.dxcluster.org/scm/spider synced 2024-09-21 15:57:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

protect send_local_config from processing undef nodes

Browse Source 
Don't understand how this is possible but if it happens much more
I am going to have to do some serious digging...
This commit is contained in:
Dirk Koopman 2007-07-20 09:27:45 +01:00
parent efdf578cb0
commit 64d7fcd04e
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
perl/DXProt.pm
View File

@ -823,13 +823,13 @@ sub send_local_config
my $node;
my @rawintcalls = map { $_->nodes } @localnodes if @localnodes;
my @intcalls;
for $node (@rawintcalls) {
push @intcalls, $node unless grep $node eq $_, @intcalls;
foreach $node (@rawintcalls) {
push @intcalls, $node if grep $_ && $node != $_, @intcalls;
}
my $ref = Route::Node::get($self->{call});
my @rnodes = $ref->nodes;
for $node (@intcalls) {
push @remotenodes, Route::Node::get($node) unless grep $node eq $_, @rnodes, @remotenodes;
foreach $node (@intcalls) {
push @remotenodes, Route::Node::get($node) if grep $_ && $node != $_, @rnodes, @remotenodes;
}
$self->send_route($main::mycall, \&pc19, scalar(@remotenodes), @remotenodes);
}

2
perl/Version.pm
View File

@ -11,6 +11,6 @@ use vars qw($version $subversion $build);
$version = '1.54';
$subversion = '0';
$build = '121';
$build = '122';
1;