Browse Source

* Do not add the package-directory twice on make zipinstall

git-svn-id: trunk@29026 -
joost 10 năm trước cách đây
mục cha
commit
7f80b1dbc1
1 tập tin đã thay đổi với 0 bổ sung5 xóa
  1. 0 5
      packages/fpmkunit/src/fpmkunit.pp

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

@@ -4804,11 +4804,6 @@ begin
       FZipper.FileName := Defaults.ZipPrefix + APackage.Name + MakeZipSuffix(Defaults.CPU,Defaults.OS) + '.zip';
       FZipper.FileName := Defaults.ZipPrefix + APackage.Name + MakeZipSuffix(Defaults.CPU,Defaults.OS) + '.zip';
     end;
     end;
 
 
-  if assigned(APackage) and (APackage.Directory<>'') then
-    SourceDir:=IncludeTrailingPathDelimiter(APackage.Directory)
-  else
-    SourceDir:='';
-
   FZipper.Entries.AddFileEntry(SourceDir + ASourceFileName, ADestFileName);
   FZipper.Entries.AddFileEntry(SourceDir + ASourceFileName, ADestFileName);
   {$endif HAS_UNIT_ZIPPER}
   {$endif HAS_UNIT_ZIPPER}
 {$ENDIF CREATE_TAR_FILE}
 {$ENDIF CREATE_TAR_FILE}