From 7505989c04f2d3ff01ca126407c1dcd17e4bc62b Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Fri, 11 Jan 2002 01:34:03 +0000
Subject: [PATCH] fix load/cmd_cache core dumping

---
 Changes               | 1 +
 perl/DXCommandmode.pm | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/Changes b/Changes
index cfa97c62..e5ebe33e 100644
--- a/Changes
+++ b/Changes
@@ -8,6 +8,7 @@ to doubt this).
 have to make the C client again) and you will need to restart.
 5. It appears that it IS possible to set non blocking on M$ you just need to
 know how.
+6. Fix problem with load/cmd_cache core dumping the system
 08Jan02=======================================================================
 1. altered sh/qrz to point to the new server
 2. alter the character set handling a bit to make it better for spanish
diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index cda76904..fe5a4842 100644
--- a/perl/DXCommandmode.pm
+++ b/perl/DXCommandmode.pm
@@ -646,7 +646,7 @@ sub clear_cmd_cache
 	no strict 'refs';
 	
 	for (keys %Cache) {
-		undef *{$_};
+		undef *{$_} unless /cmd_cache/;
 		dbg("Undefining cmd $_") if isdbg('command');
 	}
 	%cmd_cache = ();
-- 
2.34.1