paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 21:29:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@28880 -
This commit is contained in:
joost 2014-10-19 15:03:41 +00:00
parent 5451a9c0ed
commit 600d91c5b0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fpmkunit/src/fpmkunit.pp
View File

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