--- cleanpath.orig.pl   2003-09-05 18:32:14.000000000 +0200
+++ cleanpath.pl        2003-09-05 18:32:43.000000000 +0200
@@ -59,7 +59,7 @@
             }
             warn "is good -- keeping!\n";
             push( @GoodPath, $path );
-            $GoodPath{uc $path}= $path;
+            $GoodPath{uc $path} = $GoodPath{uc $dir} = $path;
         }
     }
     @$aPath= @GoodPath;