--- Coro/myhttpd/shell.pl	2001/12/03 04:57:22	1.21
+++ Coro/myhttpd/shell.pl	2004/02/12 22:18:27	1.22
@@ -58,7 +58,7 @@
             conn::read_blockref;
          } elsif ($cmd eq "clrdiridx") {
             %statdata_cache = ();
-            %diridx = ();
+            delete $diridx{$_} for keys %diridx; # server error on %diridx = ();
          } elsif ($cmd eq "restart") {
             $::RESTART = 1;
             unloop;