mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-06 20:26:13 +02:00
OpkMan: Skip clean directory for PL packages.
This commit is contained in:
parent
f7d2d0a690
commit
d0a2f521d4
@ -507,11 +507,19 @@ begin
|
||||
end;
|
||||
|
||||
function CleanDirectory(const ADirectory: String): Boolean;
|
||||
const
|
||||
SkipDir = 'ct4laz';
|
||||
var
|
||||
SR: TSearchRec;
|
||||
DirName: String;
|
||||
Name: String;
|
||||
begin
|
||||
if Pos(SkipDir, ADirectory) > 0 then
|
||||
begin
|
||||
Result := True;
|
||||
Exit;
|
||||
end;
|
||||
|
||||
DirName := AppendPathDelim(ADirectory);
|
||||
if IsDirectoryEmpty(DirName) then
|
||||
RemoveDirUTF8(DirName);
|
||||
|
Loading…
Reference in New Issue
Block a user