From 44282db5a5fa1887500504c7ef1db9b0a50615e9 Mon Sep 17 00:00:00 2001
From: carl <carl@freepascal.org>
Date: Sat, 2 Mar 2002 23:21:32 +0000
Subject: [PATCH] * small bugfix, was never prepending path to files, so they
 were never actually deleted!

---
 utils/delp.pp | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/utils/delp.pp b/utils/delp.pp
index 4ac4f4a4a7..34915e1e69 100644
--- a/utils/delp.pp
+++ b/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