X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXCommandmode.pm;h=fe5a484295f7bc9c0a9948946dfa362559e11506;hb=f1d9774e601e51f98a46c0b479f5316d613fed2c;hp=cda7690415ce9f56539c009894eea3ca4c421268;hpb=e18c9b8b9a003bfb56416ab1d2aee0f232146d25;p=spider.git

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 = ();