Преглед на файлове

Delete existing files before overwriting them for Darwin OS to avoid codesign issues

git-svn-id: trunk@49131 -
pierre преди 4 години
родител
ревизия
103599ede0
променени са 1 файла, в които са добавени 3 реда и са изтрити 0 реда
  1. 3 0
      packages/fpmkunit/src/fpmkunit.pp

+ 3 - 0
packages/fpmkunit/src/fpmkunit.pp

@@ -6196,6 +6196,9 @@ Var
   FileStat: stat;
 {$endif UNIX}
 begin
+  { First delete file on Darwin OS to avoid codesign issues }
+  if (Defaults.SourceOS=Darwin) and FileExists(Dest) then
+    SysDeleteFile(Dest);
   Log(vlInfo,SInfoCopyingFile,[Src,Dest]);
   FIn:=TFileStream.Create(Src,fmopenRead or fmShareDenyNone);
   Try