fix init and rinit stuff

[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});
-                       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());