Преглед изворни кода

* Do not change an empty .fpm-file path into an absolute path. (in zipfiles)

git-svn-id: trunk@29193 -
joost пре 10 година
родитељ
комит
408852bca6
1 измењених фајлова са 1 додато и 1 уклоњено
  1. 1 1
      packages/fpmkunit/src/fpmkunit.pp

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

@@ -6657,7 +6657,7 @@ end;
 
 function TBuildEngine.GetUnitConfigFilesInstallDir(ABaseDir: string): String;
 begin
-  result := IncludeTrailingPathDelimiter(ABaseDir)+Defaults.UnitConfigFilesInstallDir;
+  result := FixPath(ABaseDir)+Defaults.UnitConfigFilesInstallDir;
 end;
 
 procedure TBuildEngine.InstallUnitConfigFile(APAckage: TPackage; const Dest: String);