Explorar el Código

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

git-svn-id: trunk@49131 -
pierre hace 4 años
padre
commit
103599ede0
Se han modificado 1 ficheros con 3 adiciones y 0 borrados
  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