* small bugfix, was never prepending path to files, so they were never actually deleted!

utils/delp.pp

@@ -235,7 +235,7 @@ begin
       begin
         if MatchesMask(Dir.Name,hp^.mask) then
          begin
-           EraseFile(Dir.Name);
+           EraseFile(BaseDir+Dir.Name);
            inc(hp^.Files);
            inc(hp^.Size,Dir.Size);
            break;
@@ -266,7 +266,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.4  2002-02-27 16:32:08  carl
+  Revision 1.5  2002-03-02 23:21:32  carl
+  * small bugfix, was never prepending path to files, so they were never actually deleted!
+
+  Revision 1.4  2002/02/27 16:32:08  carl
   + make it work on other platforms
   + added OS/2 masks
   - remove log