paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 12:59:56 +01:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
carl 2002-03-02 23:21:32 +00:00
parent 14fedc549e
commit 44282db5a5
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
utils/delp.pp
View File

@ -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