Преглед на файлове

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

git-svn-id: trunk@29026 -
joost преди 10 години
родител
ревизия
7f80b1dbc1
променени са 1 файла, в които са добавени 0 реда и са изтрити 5 реда
  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}