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

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 615dfdd08316b24cfec90b12ef8e0da2dc878291..b4be90c0f4a88fba2cb60363029c2fb9530a3c71 100644 (file)
--- 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);
        }