projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add missing clear/route command
[spider.git]
/
perl
/
DXProt.pm
diff --git
a/perl/DXProt.pm
b/perl/DXProt.pm
index dfb571b280c3333d91cc8502090a0659040fab4a..fc08f5423649450372262ac068a072d5d2bebdf9 100644
(file)
--- a/
perl/DXProt.pm
+++ b/
perl/DXProt.pm
@@
-610,11
+610,7
@@
sub normal
# first clear out any nodes on this dxchannel
my $parent = Route::Node::get($self->{call});
# first clear out any nodes on this dxchannel
my $parent = Route::Node::get($self->{call});
- my @rout;
- for ($parent->nodes) {
- my $r = Route::Node::get($_);
- push @rout, $r->del_node if $r;
- }
+ my @rout = $parent->del_nodes;
$self->route_pc21(@rout, $parent);
$self->send_local_config();
$self->send(pc20());
$self->route_pc21(@rout, $parent);
$self->send_local_config();
$self->send(pc20());