X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=33f962fda2cd583cde3a12d18d2c3ea1d30f2273;hb=217d9d54b6772ed24aee88d5dc968a64de54f531;hp=010620a0f67725a5c8323d322a4b699a70787735;hpb=4769c7b97999c7df7f7c25f26d89902c2e86573b;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 010620a0..33f962fd 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -241,7 +241,7 @@ sub new
 	# old style connections, because we are about to get the real deal
 	if (my $ref = Route::Node::get($call)) {
 		dbg("ROUTE: $call is already in the routing table, deleting") if isdbg('route');
-		my @rout = $ref->del_nodes;
+		my @rout = $ref->delete;
 		$self->route_pc21($main::mycall, undef, @rout) if @rout;
 	}
 	$main::routeroot->add($call, '5000', Route::here(1)) if $call ne $main::mycall;