소스 검색

* Removed the double dot in tar-filenames introduced in r28875

git-svn-id: trunk@28880 -
joost 10 년 전
부모
커밋
600d91c5b0
1개의 변경된 파일1개의 추가작업 그리고 1개의 파일을 삭제
  1. 1 1
      packages/fpmkunit/src/fpmkunit.pp

+ 1 - 1
packages/fpmkunit/src/fpmkunit.pp

@@ -7009,7 +7009,7 @@ procedure TBuildEngine.ZipInstall(Packages: TPackages);
         P:=Packages.PackageItems[i];
         P:=Packages.PackageItems[i];
         If PackageOK(P) then
         If PackageOK(P) then
           begin
           begin
-            S := TGZFileStream.create(Defaults.ZipPrefix + P.Name + '.' + MakeZipSuffix(Defaults.CPU,Defaults.OS) +'.tar.gz', gzopenwrite);
+            S := TGZFileStream.create(Defaults.ZipPrefix + P.Name + MakeZipSuffix(Defaults.CPU,Defaults.OS) +'.tar.gz', gzopenwrite);
             try
             try
               FTarWriter := TTarWriter.Create(S);
               FTarWriter := TTarWriter.Create(S);
               FTarWriter.Permissions := [tpReadByOwner, tpWriteByOwner, tpReadByGroup, tpReadByOther];
               FTarWriter.Permissions := [tpReadByOwner, tpWriteByOwner, tpReadByGroup, tpReadByOther];