From: minima <minima>
Date: Tue, 21 Aug 2001 10:27:33 +0000 (+0000)
Subject: try to fix PC39s deleting more of the table than they should
X-Git-Tag: R_1_48~85
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=fbfd8dc2d58c550bf3922efb54ec4ee817df07d5;p=spider.git

try to fix PC39s deleting more of the table than they should
---

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 615dfdd0..b4be90c0 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -1718,7 +1718,7 @@ sub disconnect
 	my $node = Route::Node::get($call);
 	my @rout;
 	if ($node) {
-		@rout = $node->del_nodes;    # at the next level
+#		@rout = $node->del_nodes;    # at the next level
 		@rout = $node->del($main::routeroot);
 	}