OpkMan: Skip clean directory for PL packages.

This commit is contained in:
balazs 2022-01-18 16:14:40 +02:00
parent f7d2d0a690
commit d0a2f521d4

View File

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