فهرست منبع

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