X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=fc08f5423649450372262ac068a072d5d2bebdf9;hb=5d4486dbbd2c0d758629b28a1a6e3b2f16c4bfb5;hp=dfb571b280c3333d91cc8502090a0659040fab4a;hpb=7694becd42a37ddbc1dfeb22f9667a167ea94dab;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index dfb571b2..fc08f542 100644
--- 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());