From 85915352f85d7fbb42bee4cf8f6a684c62b96dc9 Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Wed, 25 Jul 2007 12:45:44 +0100
Subject: [PATCH] shutdown quicker by not manipulating routing table

---
 Changes         | 2 ++
 perl/DXProt.pm  | 2 +-
 perl/Version.pm | 2 +-
 3 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/Changes b/Changes
index 7b64449c..e921235e 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,5 @@
+25Jul07=======================================================================
+1. don't clear out routing tables on shutdown. This should speed that up.
 24Jul07=======================================================================
 1. Try to target PC93 (the combined talk/ann/chat sentence) better. Prevent
 PC12 chat going to non-dxspider and non-ak1a nodes. None of the others seem to
diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 7ad886fd..42479d86 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -1187,7 +1187,7 @@ sub disconnect
 
 	# here we determine what needs to go out of the routing table
 	my @rout;
-	if ($node) {
+	if ($node && $pc39flag != 2) {
 		dbg('%Route::Node::List = ' . join(',', sort keys %Route::Node::list)) if isdbg('routedisc');
 
 		@rout = $node->del($main::routeroot);
diff --git a/perl/Version.pm b/perl/Version.pm
index f54e69da..ecefc7ca 100644
--- a/perl/Version.pm
+++ b/perl/Version.pm
@@ -11,6 +11,6 @@ use vars qw($version $subversion $build);
 
 $version = '1.54';
 $subversion = '0';
-$build = '127';
+$build = '128';
 
 1;
-- 
2.34.1