paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-08 06:35:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

OpkMan: Skip clean directory for PL packages.

Browse Source
This commit is contained in:
balazs 2022-01-18 16:14:40 +02:00
parent f7d2d0a690
commit d0a2f521d4
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/onlinepackagemanager/opkman_common.pas
View File

@ -507,11 +507,19 @@ begin
end; end;
function CleanDirectory(const ADirectory: String): Boolean; function CleanDirectory(const ADirectory: String): Boolean;
const
SkipDir = 'ct4laz';
var var
SR: TSearchRec; SR: TSearchRec;
DirName: String; DirName: String;
Name: String; Name: String;
begin begin
if Pos(SkipDir, ADirectory) > 0 then
begin
Result := True;
Exit;
end;
DirName := AppendPathDelim(ADirectory); DirName := AppendPathDelim(ADirectory);
if IsDirectoryEmpty(DirName) then if IsDirectoryEmpty(DirName) then
RemoveDirUTF8(DirName); RemoveDirUTF8(DirName);