X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXCommandmode.pm;h=fe5a484295f7bc9c0a9948946dfa362559e11506;hb=7505989c04f2d3ff01ca126407c1dcd17e4bc62b;hp=cda7690415ce9f56539c009894eea3ca4c421268;hpb=60bd15a823797c01182ebfb8b6b3a5bf10065b42;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 = ();