Răsfoiți Sursa

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

git-svn-id: trunk@29026 -
joost 10 ani în urmă
părinte
comite
7f80b1dbc1
1 a modificat fișierele cu 0 adăugiri și 5 ștergeri
  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';
     end;
 
-  if assigned(APackage) and (APackage.Directory<>'') then
-    SourceDir:=IncludeTrailingPathDelimiter(APackage.Directory)
-  else
-    SourceDir:='';
-
   FZipper.Entries.AddFileEntry(SourceDir + ASourceFileName, ADestFileName);
   {$endif HAS_UNIT_ZIPPER}
 {$ENDIF CREATE_TAR_FILE}