projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
some fixed
[spider.git]
/
perl
/
DXProt.pm
diff --git
a/perl/DXProt.pm
b/perl/DXProt.pm
index 813b89ced4f407e961e9342ebf15563cfa841b51..e33488ccaf9942c5cdca015e66e0ff74f936078a 100644
(file)
--- a/
perl/DXProt.pm
+++ b/
perl/DXProt.pm
@@
-607,7
+607,8
@@
sub normal
my $node = Route::Node::get($self->{call});
my @rout;
for ($node->nodes) {
my $node = Route::Node::get($self->{call});
my @rout;
for ($node->nodes) {
- push @rout, $_->del_node;
+ my $r = Route::Node::get($_);
+ push @rout, $r->del_node if $r;
}
$self->route_pc21(@rout, $node);
$self->send_local_config();
}
$self->route_pc21(@rout, $node);
$self->send_local_config();
@@
-641,6
+642,8
@@
sub normal
$node->flags(Route::here($here)|Route::conf($conf));
push @rout, $node;
} elsif ($node->call ne $call) {
$node->flags(Route::here($here)|Route::conf($conf));
push @rout, $node;
} elsif ($node->call ne $call) {
+ next if $call eq $main::mycall || $call eq $self->{call};
+
my $r = $node->add($call, $ver, Route::here($here)|Route::conf($conf));
push @rout, $r if $r;
}
my $r = $node->add($call, $ver, Route::here($here)|Route::conf($conf));
push @rout, $r if $r;
}
@@
-1690,7
+1693,7
@@
sub send_route
$routeit = adjust_hops($self, $line); # adjust its hop count by node name
next unless $routeit;
}
$routeit = adjust_hops($self, $line); # adjust its hop count by node name
next unless $routeit;
}
- $self->send($routeit)
unless $self->{isolate} || $self->{isolate}
;
+ $self->send($routeit);
}
}
}
}
}
}